将数据复制/粘贴到数据的最后一行/列之后/之后。 从旧工作簿到新工作簿

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。 它们可用于查找最后/第一列和行。