excel 为什么我的自动填充不工作?

puruo6ea  于 2023-05-30  发布在  其他
关注(0)|答案(2)|浏览(162)

希望你能帮助下面,我不知道为什么这是不工作,我似乎不能弄清楚。在谷歌搜索之后,我甚至找不到这个问题的另一个例子。
本质上,代码应该在一个页面上获取数据,将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

我在这里感到非常困惑,因此您可以给予有关如何解决此问题(更重要的是,为什么会发生)的任何帮助,我们将不胜感激。

c2e8gylq

c2e8gylq1#

如果With语句中有AutoFill,请尝试在Range之前使用“.”。

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

3ks5zfa02#

是把A3改成A2才修好的。自动填充目的地必须包括要自动填充的行。换句话说,“目的地”必须包括“源”。

相关问题