为什么我的自动填充不工作？
希望你能帮助下面，我不知道为什么这不起作用，我似乎无法弄清楚。 谷歌search后，我甚至找不到这个问题的另一个例子。
本质上，代码应该把数据放在一个页面上，把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
我对此感到困惑，因此，如何解决这个问题（更重要的是，为什么会发生这种情况），我们将不胜感激。
如果在With语句中有自动填充，请尝试使用“。” 范围之前。
.Range("A2:V2").AutoFill Destination:=.Range("A3:V" & rowcnt)