步骤：1.新建汇总excel

2.用excel打开工作表汇总，删除其余两个sheet,留下一个改名汇总（随意命名）

3.鼠标放在汇总sheet页，然后右键，点击查看代码（或者alt+F11--》工具栏选择视图--》代码窗口）

4.将以下代码复制到弹出窗口（如果excel文件是.xls,则只需要修改代码中的文件后缀即可）

Sub 工作薄间工作表合并() Dim FileOpen Dim X As Integer Application.ScreenUpdating = False FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xlsx),*.xlsx", MultiSelect:=True, Title:="合并工作薄") X = 1 While X