☰

复制列直到边界

tag-icon • tag-icon microsoft-excel vba
复制列直到边界

正在尝试告诉 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

相关内容