Sao chép các cột cho đến khi một ranh giới

1

Đang cố gắng nói với VBA sao chép tất cả các ô từ Cột "Data_FirstCoumn" cho đến Cột "Data_Boundary".

Tuy nhiên, VBA liên tục đưa ra một lỗi cho biết rằng "Phương thức tự động điền của lớp Range không thành công".

Đây là mã của tôi để cung cấp ngữ cảnh:

Sub Macro5()
Range("Data_FirstColumn").Select
Selection.AutoFill Destination:=Range("Data_Boundary"), Type:=xlFillDefault
Columns("Data_First:Data_Boundary").Select
End Sub

Cảm ơn

microsoft-excel vba

— người sống sót686
nguồn

Đâu là phạm vi được xác định ??

— Học sinh của Gary

Tôi đã đặt tên cho hai cột là "Data_FirstColumn" và "Data_Boundary" tương ứng. Ngoài ra tôi muốn tự động điền.

— người sống

1

Xem xét:

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

— Học sinh của Gary
nguồn

1

Theo lỗi của bạn - bạn cần đích đến để bao gồm nguồn . Thử:

Range("Data_FirstColumn").AutoFill Destination:=Range("Data_FirstColumn:Data_Boundary"), Type:=xlFillDefault

— Raystafarian
nguồn