用vba编写合并工作表中各sheet文件至目标sheet

下面是用 VBA 编写代码合并工作表中各个工作表到目标工作表的示例：

Sub MergeSheets()
    Dim wsDestination As Worksheet
    Dim wsSource As Worksheet
    Dim lngLastRow As Long
 
    Set wsDestination = ThisWorkbook.Sheets("目标工作表")
    lngLastRow = wsDestination.Cells(wsDestination.Rows.Count, "A").End(xlUp).Row
 
    For Each wsSource In ThisWorkbook.Sheets
        If wsSource.Name <> "目标工作表" Then
            wsSource.Range("A1:Z" & wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row).Copy _
            Destination:=wsDestination.Cells(lngLastRow + 1, 1)
            lngLastRow = wsDestination.Cells(wsDestination.Rows.Count, "A").End(xlUp).Row
        End If
    Next wsSource
End Sub

该代码首先定义了一个名为 "目标工作表" 的工作表作为目标工作表，并通过查找最后一行的方法计算其最后一行的行数。然后，它使用 For Each 循环遍历当前工作簿中的所有工作表，如果它们的名称不是 "目标工作表"，它将从源工作表中复制所有数据，并将其粘贴到目标工作表的下一行。