填充表格时，Range类的自动填充方法失败

我目前正在使用Excel中的项目来处理原始数据并将其放入表格中。 目前该表根据要复制到其中的数据的大小resize。 我遇到的问题是，大部分的故事都是基于数据填充公式。 我正在尝试自动填充公式到表的最后根据数据确定的大小，并得到错误“自动填充范围类的方法失败”

ColNo = 26 + ((large - Year(Date)) * 4) ColLet = Split(Cells(, ColNo).Address, "$")(1) Sheets(sheetsSA).Range("V3:W4").AutoFill Destination:=Sheets(sheetsSA).Range("V3:W" & semi_end + 1) ****Sheets(sheetsSA).Range("X3:Y4").AutoFill Destination:=Sheets(sheetsSA).Range("X3:" & ColLet & semi_end + 1)**** 

星号是给出问题的线。 任何援助将不胜感激。 前两行查找自动填充中使用的列的字母。 谢谢

Answer 1

AutoFill命令需要range参数第一部分中的整个列宽。

这行代码应该工作：

 Sheets(sheetsSA).Range("X3:" & ColLet & "4").AutoFill Destination:=Sheets(sheetsSA).Range("X3:" & ColLet & semi_end + 1) 

此外，你会很好地search一个“With With With Statement”

 With Sheets(sheetsSA) .Range("V3:W4").AutoFill Destination:=.Range("V3:W" & semi_end + 1) .Range("X3:" & ColLet & "4").AutoFill Destination:=.Range("X3:" & ColLet & semi_end + 1) End With