復制到最后一行

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