vba - EXCEL VBA : Append column from one worksheet to the end of another

Question

我目前有以下内容可以将表 2 中的第一列复制到表 1 中的第一列

Sheets("Sheet2").Columns(1).Copy Destination:=Sheets("Sheet1").Columns(1)

但是，这会覆盖那里的内容 - 我如何将数据附加到已经存在的内容中？

谢谢

Answer 1

尝试，

dim arr as variant, i as long

arr = array("A", "B", "C", "G", "H", "I")

With Worksheets("Sheet2")
    for i=lbound(arr) to ubound(arr)
        .Range(.Cells(1, arr(i)), .Cells(.Rows.Count, arr(i)).End(xlUp)).Copy _
            Destination:=Worksheets("Sheet1").Cells(.Rows.Count, arr(i)).End(xlUp).Offset(1, 0)
    next i
End With