经常会遇到合并工作表，一个个的复制感觉有点麻烦，这里告诉大家一个简单的方法。使用ExcelVBA中将所有工作表合并到一个工作表的方法。

1、在Excel菜单栏中找到开发工具，如下图所示，选择开发工具选项。

2、在开发工具选项中打开Visual Basic，就是Excel中的VBA编程工具。

3、插入模块，右键选项中选择插入模块。就是新建一个编辑窗口。用来输入我们的代码。如下图所示，红色圈出位置。

4、复制这段代码，粘贴进去。

Sub 合并工作表()

Application.DisplayAlerts = False

Application.ScreenUpdating = False

Sheets(1).Select

Sheets.Add

Sheets(1).Name = 汇总

Dim i, j, k As Integer

For k = 2 To Sheets.Count

j = Sheets(汇总)..End(3).Row + 1

Sheets(k).Select

i = Sheets(k)..End(3).Row

Sheets(k).Rows(1 : i).Copy Sheets(汇总).Cells(j, 1)

Sheets(1).Select

Rows(1).Delete

Application.DisplayAlerts = True

Application.ScreenUpdating = True

End Sub

5、如下图所示，红色圈出位置，为运行代码按钮，点击直接运行程序代码。

6、运行代码后，所有表格都合并到一个工作表里了。