Question

我目前正在使用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)****

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

Answer 1

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

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

1 个答案: