小女子初来乍到，有事相求。
如何把除了“总表”的表，后面持续合并，（因为我后续还要增加表页）。
1.后面的1-28的表，它们的格式都是一样的，有的表有11列，有的表有12列，但我希望能全部都包含进去。
2.读取的时候希望从2表 第二行开始合并。

求大神相助，万分感激

'将表2的数据追加到表1中
Public Sub CopySheet2Rows()
    Dim x As Integer, FinalRow As Integer, NextRow As Integer
    Dim sh_src As Worksheet
    Dim sh_dst As Worksheet
    Set sh_src = ThisWorkbook.Worksheets("2")
    Set sh_dst = ThisWorkbook.Worksheets("1")
    ' Find the last row of data
    FinalRow = sh_src.Cells(sh_src.Rows.Count, 1).End(xlUp).Row
    ' Loop through each row
    For x = 2 To FinalRow
        ' Decide if to copy based on column D
        If Not IsEmpty(sh_src.Cells(x, 4)) Then
            sh_src.Cells(x, 1).Resize(1, 12).Copy
            'Sheets("SheetA").Select
            NextRow = sh_dst.Cells(sh_dst.Rows.Count, 1).End(xlUp).Row + 1
            sh_dst.Cells(NextRow, 1).Select
            sh_dst.Paste
        End If
    Next x
End Sub

[此贴子已经被作者于2023-10-19 15:34编辑过]

谢谢你，另起一个新的表格 “追加所有表格的数据”，我不会写，你可以告诉我吗？谢谢

[此贴子已经被作者于2023-10-19 18:02编辑过]

参考 CopySheet2Rows()的代码, 实现一个通用的函数CopySheetRows(sheetname), 遍历sheets, 然后调用CopySheetRows(sheetname)