如何復制所有工作表中的最后一行數據並將其粘貼到一個工作表中

Question

目前我的 Excel 文件中有很多工作表，但我想獲取工作表中以“6”開頭的最后一行數據作為它們的名稱，因為其他工作表不相關。 在以 6 開頭的工作表中，格式相同但行數不同，我有興趣提取所有這些工作表中的最后一行（D:J 列）並將其放入“主工作表”中。 由於我對 VBA 很陌生，我 go 會怎么做呢？ 提前致謝！

我目前擁有的可以復制一張紙並粘貼到我的主表“Sheet2”中：

   With Sheets("6363")
        With Range(.Cells(.Rows.Count, "D").End(xlUp), _
                   .Cells(.Cells(.Rows.Count, "D").End(xlUp).row, .Columns.Count).End(xlToLeft))
            Worksheets("Sheet2").Range("D1").Resize(, .Columns.Count).Value = .Value
        End With
    End With

Answer 1

這將從名稱以“6”開頭的每個工作表復制最后一行 DJ 列。

它將復制的數據放入“Sheet2”的下一個空行，從 D 列開始。

Sub CopySix()
Dim wsSrc As Worksheet
Dim wsDst As Worksheet
Dim rngSrc As Range
Dim rngDst As Range

    Set wsDst = ActiveWorkbook.Sheets("Sheet2")
    
    Set rngDst = wsDst.Range("D" & Rows.Count).End(xlUp).Offset(1)
    
    For Each wsSrc In ActiveWorkbook.Sheets
        If Left(wsSrc.Name, 1) = "6" Then
            Set rngSrc = wsSrc.Range("D" & Rows.Count).End(xlUp).Resize(, 7)
            rngDst.Resize(, 7).Value = rngSrc.Value
            Set rngDst = rngDst.Offset(1)
        End If
    Next wsSrc
    
End Sub