如何整合每天添加的数据

Question

我正在尝试从 datafile.xlsx (A1-C7) 获取数据，并使用 consolidate 命令将其合并到同一工作簿中的 A1 中，不同的工作表

Dim iwb As Workbook: Set iwb = Workbooks.Open("datafile.xlsx")
Dim insp As Worksheet: Set insp = iwb.Sheets(1)
Dim tot As Worksheet: Set tot = iwb.Sheets(2)

tot.Range("A1").consolidate _
    Sources:=Array("Inspector Data!R1C1:R7C3"), _
    Function:=xlSum, _
    TopRow:=True, _
    LeftColumn:=True

但是，此数据将随着每天添加新行而增长。 如何告诉合并命令或数组重新选择所有数据？ 类似于 range.currentregion 的做法。

Answer 1

Dim iwb As Workbook: Set iwb = Workbooks.Open("datafile.xlsx")
Dim insp As Worksheet: Set insp = iwb.Sheets(1)
Dim tot As Worksheet: Set tot = iwb.Sheets(2)

Dim lastrow As Long
    
With insp
    lastrow = .Range("A" & .Rows.Count).End(xlUp).Row
End With

tot.Range("A1").consolidate _
    Sources:=Array("Inspector Data!R1C1:R" & lastrow & "C3"), _
    Function:=xlSum, _
    TopRow:=True, _
    LeftColumn:=True