1、经常会遇到合并工作表，一个个的复制感觉有点麻烦，这里告诉大家一个简单的方法。使用ExcelVBA中将所有工作表合并到一个工作表的方法。
2、在Excel菜单栏中找到开发工具，如下图所示，选择开发工具选项。
3、在开发工具选项中打开Visual Basic，就是Excel中的VBA编程工具。
4、插入喋碾翡疼模块，右键选项中选择插入模块。就是新建一个编辑窗口。用来输入我们的代码。如下图所示，红色圈出位置。
5、复制这目愿硅囫段代码，粘贴进去。Sub 合并工作表() Application.DisplayAlerts = False Applicat足毂忍珩ion.ScreenUpdating = False Sheets(1).Select Sheets.Add Sheets(1).Name = "汇总" Dim i, j, k As Integer For k = 2 To Sheets.Count j = Sheets("汇总").[a65536].End(3).Row + 1 Sheets(k).Select i = Sheets(k).[a65536].End(3).Row Sheets(k).Rows("1" & ":" & i).Copy Sheets("汇总").Cells(j, 1) Sheets(1).Select Rows(1).Delete Application.DisplayAlerts = True Application.ScreenUpdating = TrueEnd Sub
6、如下图所示，红色圈出位置，为运行代码按钮，点击直接运行程序代码。
7、运行代码后，所有表格都合并到一个工作表里了。
