希望你能帮助下面,我不知道为什么这是不工作,我似乎不能弄清楚。在谷歌搜索之后,我甚至找不到这个问题的另一个例子。
本质上,代码应该在一个页面上获取数据,将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
我在这里感到非常困惑,因此您可以给予有关如何解决此问题(更重要的是,为什么会发生)的任何帮助,我们将不胜感激。
2条答案
按热度按时间c2e8gylq1#
如果With语句中有AutoFill,请尝试在Range之前使用“.”。
3ks5zfa02#
是把A3改成A2才修好的。自动填充目的地必须包括要自动填充的行。换句话说,“目的地”必须包括“源”。