從各種工作簿中復制工作表並粘貼到其他工作簿中的工作表中

Question

我有7個工作簿，每張紙上都有相同的格式。 我想從每個工作簿中獲取“ Sheet2”，並將它們粘貼到單獨工作簿中的主表中。 我已經做到了，但是粘貼一直覆蓋着最后的粘貼。 如何粘貼在最后粘貼的條目下方？

我有7張紙的每一張

Sub MoveHR()
Dim x As Workbook
Dim y As Workbook

'## Open both workbooks first:
Set x = Workbooks.Open("\\ukkh1-afp-sv1o\Shared\Sales\Field Sales - 

ERN\DSRs\. DSR's February 2016\HRehman February.xlsm")
Set y = Workbooks.Open("\\ukkh1-afp-sv1o\Shared\Sales\Field Sales - ERN\DSRs\Trackers\SIMPosa Tracker.xlsm")

'Now, copy what you want from x:
x.Sheets("SIMPosa").Range("A:J").Copy

'Now, paste to y worksheet:
y.Sheets("Current Month").Range("A1").PasteSpecial xlPasteValues

'Close x:
Application.CutCopyMode = False
x.Close False
y.Close True
End Sub

Answer 1

嘗試添加一個循環以查找下一個空行，如下所示：

dim i as integer
i=1

do until y.sheets("Current Month").cells(i,1).value=""
    i=i+1
loop

y.Sheets("Current Month").Cells(i,1).PasteSpecial xlPasteValues

Answer 2

更改此行：

y.Sheets("Current Month").Range("A1").PasteSpecial xlPasteValues

對此：

y.Sheets("Current Month").Range("A" & y.Sheets("Current Month").Rows.Count).End(xlup).Offset(1)).PasteSpecial xlPasteValues

第二行等效於轉到工作表的最后一行，然后Ctrl+Up並找到包含數據的最后一行，然后將其偏移1行以粘貼新數據。