Excel：如何把多个工作表合并成一个工作表

1、新建一个Excel工作薄，工作簿名称任你定义。

2、打开此工作薄，将其中一个Sheet重命名为"汇总"。

3、在其下任一个工作表标签上点击右键，选择“查看代码”。

4、在打开的VBA编辑窗口中粘贴以下代码：Sub 合并工作簿内的多个Sheet到同一个Sheet() Dim i, j As Integer 'i是数据源表的最后一行，j是目标表(数据表)的最后一行 Dim sht As Worksheet Application.ScreenUpdating = False '关闭屏幕刷新 '先要删除所有数据 Sheets("汇总").Range("a1:z65536").ClearContents '复制数据 For Each sht In Sheets If sht.Name <> "汇总" Then i = sht.Range("d65536").End(xlUp).Row j = Sheets("汇总").Range("d65536").End(xlUp).Row sht.Range("a1:z" & i).Copy Sheets("汇总").Range("a" & j + 1) End If Next MsgBox "执行完毕！" Application.ScreenUpdating = True '打开屏幕刷新 End Sub

5、关闭VBA编辑窗口

6、在excel中，工具---宏---宏,选“合并工作簿的各个sheet到同一个sheet”,然后“执行”。