如何整合每天添加的數據

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