Question

希望你可以提供以下帮助，我不知道为什么这不起作用，我似乎无法弄明白。经过一些谷歌搜索，我甚至找不到这个问题的另一个例子。

本质上，代码应该在一个页面上获取数据，将HLOOKUPS放在另一个页面中以将所有内容排序到正确的列中（一切正常）。然后，一旦完成，它应该使用行计数自动填充。

我遇到的问题是，它是自动填写错误的工作表（可能值得一提的是，它填充的工作表与代码所在的工作表和rowcnt所在的相同。

我试图明确地调出我想要使用的表单：Range("A2:V2").AutoFill Destination:=Sheets(5).Range("A3:V" & rowcnt), Type:=xlFillDefault但是这会在代码的填充行上抛出一个应用程序定义的或对象定义的错误。

Public Sub FormatData()

    rowcnt = Application.WorksheetFunction.CountA(Sheet4.Range("B:B")) + 1

With Sheets("Final Datasets")
    .Cells(2, "A").FormulaR1C1 = _
    "=HLOOKUP(""oOrder_date"",'Teradata Downloads'!R1:R1048576,ROW('Final Datasets'!RC),0)"

[snip] load more of the same as above [/snip]

        'FILL
        Range("A2:V2").AutoFill Destination:=Range("A3:V" & rowcnt), Type:=xlFillDefault

    End With

End Sub

我在这里很困惑，所以你可以给予任何帮助以解决这个问题（更重要的是，为什么会发生这种情况）。非常感谢。

Answer 1

如果您在With语句中有自动填充，请尝试使用“。”在Range之前。

.Range("A2:V2").AutoFill Destination:=.Range("A3:V" & rowcnt)

为什么我的自动填充无效？

1 个答案: