excel - VBA - 复制列中的所有数据

Question

我需要创建一个宏来搜索特定的列标题名称，找到该列，复制它下面的所有数据，并将其粘贴到 ws2 中完全相同的列标题下。

Worksheet1 的标题如下：“名字”、“姓氏”、“ID” 以及它们下面的所有数据。

Worksheet2 已经具有相同的标题，但没有数据。

我已经尝试过了，但我不断收到下标超出范围的运行时错误：

Dim lastRow As Long
Dim ws1 As Worksheet
Dim ws2 As Worksheet

Set ws1 = Workbooks("WS1.xlsm").Worksheets("Sheet1")
Set ws2 = Workbooks("WS2.xlsm").Worksheets("Sheet1")

lastRow = ws1.Cells(ws1.Rows.Count, "A").End(xlUp).Row

ws1.Range(Cells(2, 1), Cells(lastRow, 1)).Copy

ws2.Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

谢谢！

标签： excelvba