![复制列直到边界](https://linux22.com/image/1393878/%E5%A4%8D%E5%88%B6%E5%88%97%E7%9B%B4%E5%88%B0%E8%BE%B9%E7%95%8C.png)
正在尝试告诉 VBA 复制从“Data_FirstCoumn”列到“Data_Boundary”列的所有单元格。
但是 VBA 一直抛出一个错误,指出“Range 类的 AutoFill 方法失败”。
以下是我用来提供上下文的代码:
Sub Macro5()
Range("Data_FirstColumn").Select
Selection.AutoFill Destination:=Range("Data_Boundary"), Type:=xlFillDefault
Columns("Data_First:Data_Boundary").Select
End Sub
谢谢
答案1
考虑:
Sub macro5()
Range("A:A").Name = "Data_FirstColumn"
Range("Z:Z").Name = "Data_Boundary"
Range("Data_FirstColumn").Copy Range(Range("Data_FirstColumn"), Range("Data_Boundary"))
End Sub
答案2
每你的错误- 你需要目的地到包括来源。 尝试:
Range("Data_FirstColumn").AutoFill Destination:=Range("Data_FirstColumn:Data_Boundary"), Type:=xlFillDefault