將數據復制/粘貼到數據的最后一行/列之后/之后。 從舊工作簿到新工作簿

Question

我正在更新每周主文件。 如此一來，我試圖將數據從源文件復制並粘貼到主表中。 現在，需要將數據粘貼到上周數據之后的列和行中。 因此，例如，如果上周數據結束（“ H70：M70”），我需要將新粘貼的數據轉到（“ H71：M71”）。 另外，新粘貼的數據有很多行，因此下周的數據必須粘貼在該周數據的最后一行/列之后，即（“ H230：M230”）。 請幫忙。

Option Explicit
Sub Copydata()
Dim myWB As Workbook
Dim thisWB As Workbook
Dim thisWS As Worksheet

Application.ScreenUpdating = False    

Set myWB = Workbooks.Open("C:\Users\jjordan\Desktop\test.xlsx")

myWB.Sheets("Sheet1").Range("A8:F17").Copy

Set thisWB = ThisWorkbook
Set thisWS = thisWB.Sheets("Test data")

thisWB.Activate
thisWS.Range("H71:M71").PasteSpecial _
    Paste:=xlPasteValues, Operation:=xlNone, _
    SkipBlanks:=False, Transpose:=False

With Application
    .CutCopyMode = False
    .ScreenUpdating = True
End With

myWB.Close

結束子

Answer 1

James，您熟悉VBA中的End()嗎？

lastRow = ActiveSheet.Cells(Rows.Count,1).End(xlUp).Row

這將轉到工作表第1列中最后一個可能的單元格，然后向上直到找到包含數據的單元格並返回相應的行。

End()的其他可能參數是xlDown，xlToLeft和xlToRight。 它們可用於查找最后/第一列和行。