vba合并多个sheet

以下是使用 VBA 合并多个工作表的代码：

Sub Merge_Sheets()
    Dim ws As Worksheet
    Dim combinedSheet As Worksheet
    Dim lastRow As Long
    
    '创建一个新工作表作为合并后的工作表
    Set combinedSheet = ThisWorkbook.Sheets.Add(After:= _
             ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    combinedSheet.Name = "Combined"
    
    '循环每个工作表
    For Each ws In Worksheets
        '跳过合并后的工作表
        If ws.Name <> combinedSheet.Name Then
            '找到最后一行
            lastRow = combinedSheet.Cells(Rows.Count, 1).End(xlUp).Row
            '将当前工作表中的数据复制到合并后的工作表中
            ws.Range("A1").CurrentRegion.Copy Destination:=combinedSheet.Range("A" & lastRow + 1)
        End If
    Next ws
End Sub

这段代码将在当前工作簿中创建一个名为 "Combined" 的新工作表，并将所有其他工作表中的数据复制到此工作表中。