复制到最后一行

Question

我有多个工作表，我想将其数据复制到它的最后一个空行上的另一个工作簿中。 数据的行数是随机的，但列数是定义的，我在复制数据时遇到了麻烦（不是所有工作表，只有包含数据的行），然后将其粘贴到最终工作簿的最后一行。 我该怎么办？ 我一点都不知道

免责声明：我不想使用选择活动表，因为我将打开多个工作簿，这给我带来了问题。 另外，数据还在继续，这意味着中间没有空行。 另外，我认为这不会改变任何东西，但是此代码在循环内运行，因此可以从多个文件复制所有工作表。

谢谢！

Answer 1

col是您要复制的列号

For Each ws in Activeworkbook.worksheets

    lastrow = ws.cells(ws.rows.count, col).end(xlup).row

    'code to copy and paste

Next ws

Answer 2

我假设您有工作表的句柄，因此可以使用以下代码复制数据：

Public Sub CopyAcross(oSheetFrom As Worksheet, oSheetTo As Worksheet)

    Const DATA_START_ADDRESS As String = "$A$1"

    oSheetFrom.Range(DATA_START_ADDRESS).CurrentRegion.Copy

    oSheetTo.Range("A" & oSheetTo.Rows.Count).End(xlUp).PasteSpecial xlPasteAll

    Application.CutCopyMode = False

End Sub

假设要复制的数据在每张纸上具有相同的起始地址，指定为DATA_START_ADDRESS