发生 VBA 编译错误

Question

下面的代码旨在在首次打开工作簿时运行。

Sub Auto_Open()

Dim LastRow As Integer
LastRow = Sheet6.UsedRange.Rows.Count

ActiveWorkbook.RefreshAll

Sheet6.AutoFill Destination:=Range("Y2:Y" & LastRow)

End Sub

它会自动运行 Refresh All 以更新 WorkBook 中的任何查询或公式，然后将 sheet6 的 Y 列中的数据列表自动填充到 WorkSheet 中可以找到的最后一行数据。

当我去运行代码时，我得到一个突出显示的“编译错误:找不到数据成员的方法”。

.Autofill

我不明白的是，这在相同的电子表格上效果很好，而不仅仅是这个。

我还尝试了以下代码，该代码在这张表上不起作用，但在另一张表上起作用。

Sub Auto_Open()

ActiveWorkbook.RefreshAll

Sheet6.AutoFill_ListSource

End Sub

ListSource 是我尝试自动填充的 Y 列中表的名称。

Answer 1

改变:

Sheet6.AutoFill Destination:=Range("Y2:Y" & LastRow)

至:

Sheet6.Range("Y2").AutoFill Destination:=Sheet6.Range("Y2:Y" & LastRow)

备注 :获取最后一行的“更安全”的方法，将使用 Find功能:

Dim LastCell As Range
Dim LastRow As Long

With Sheet6
    Set LastCell = .Cells.Find(What:="*", After:=.Cells(1), Lookat:=xlPart, LookIn:=xlFormulas, _
                        searchorder:=xlByRows, searchdirection:=xlPrevious, MatchCase:=False)
    If Not LastCell Is Nothing Then
        LastRow = LastCell.Row
    Else
        MsgBox "Error! worksheet is empty", vbCritical
        Exit Sub
    End If
End With