excel合并工作表到一个表

如果你熟悉VBA编程，可以使用宏来合并工作表。以下是一个简单的VBA宏示例：

Sub MergeSheets()
    Dim ws As Worksheet
    Dim DestSheet As Worksheet
    Dim LastRow As Long
    
    ' 创建一个新的工作表来存放合并后的数据
    Set DestSheet = ThisWorkbook.Sheets.Add
    DestSheet.Name = "MergedData"
    
    ' 循环遍历所有工作表并复制数据到新的工作表
    For Each ws In ThisWorkbook.Sheets
        If ws.Name <> DestSheet.Name Then
            LastRow = DestSheet.Cells(DestSheet.Rows.Count, "A").End(xlUp).Row + 1
            ws.UsedRange.Copy Destination:=DestSheet.Cells(LastRow, 1)
        End If
    Next ws
End Sub

打开Excel并按Alt + F11打开VBA编辑器。

在VBA编辑器中，插入一个新模块并粘贴上述代码。

Alt + F8打开VBA运行宏，它将自动合并所有工作表到一个名为“MergedData”的新工作表中。