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

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:UsersjjordanDesktoptest.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
End Sub

Answer 1

James，你熟悉VBA中的End()吗？

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

这将转到工作表第1列中最后一个可能的单元格，然后向上移动，直到找到包含数据的单元格并返回相应的行。

End()的其他可能参数是xlDown、xlToLeft和xlToRight。它们可用于查找最后/第一列和行。