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

时间:2016-03-14 12:11:00

标签: excel vba excel-vba range autofill

我目前正在使用Excel中的一个项目来获取原始数据并将其放入表中。当前表格根据复制到其中的数据大小进行调整。我遇到的问题是,大部分故事都充满了基于数据的公式。我试图根据从数据中确定的大小将公式自动填充到表的末尾,并获得错误“范围类的自动填充方法失败”

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)****

主演的是提出问题的那一行。任何帮助将不胜感激。前两行找到自动填充中使用的列的字母。 感谢

1 个答案:

答案 0 :(得分:0)

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

这行代码应该有效:

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

此外,您可以使用`With End 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