本文借鉴整理自博文 https://blog.csdn.net/ZeroBz/article/details/102856403网上搜到的合并Excel的教程大多都是合并多个文件到一个sheet，本文是将
多个Excel文件的
第一个sheet合并为
一个Excel文件中的
多个sheet 将要合并的Excel放在同一个文件夹下面，新建一个Excel文件
2. 打开新建的Excel，按Alt+F11进入宏计算界面
点击插入 -> 模块
3. 将以下代码粘贴进去
'功能：把多个excel工作簿的第一个sh eet工作表合并到一个excel工作簿的多个sheet工作表，新工作表的名称等于原工作簿的名称Sub Books2Sheets()'定义对话框变量Dim fd As FileDialogSet fd = Application.FileDialog(msoFileDialogFilePicker)'新建一个工作簿Dim newwb As WorkbookSet newwb = Workbooks.AddWith fdIf .Show = -1 Then'定义单个文件变量Dim vrtSelectedItem As Variant'定义循环变量Dim i As Integeri = 1'开始文件检索For Each vrtSelectedItem In .SelectedItems'打开被合并工作簿Dim tempwb As WorkbookSet tempwb = Workbooks.Open(vrtSelectedItem)'复制工作表tempwb.Worksheets(1).Copy Before:=newwb.Worksheets(i)'把新工作簿的工作表名字改成被复制工作簿文件名，这儿应用于xls文件，即Excel97-2003的文件，如果是Excel2007，需要改成xlsx 注意！这里是英文的双引号！否则语法编译错误newwb.Worksheets(i).Name = VBA.Replace(tempwb.Name, ".xlsx", "")'关闭被合并工作簿tempwb.Close SaveChanges:=Falsei = i + 1Next vrtSelectedItemEnd IfEnd WithSet fd = NothingEnd Sub 以上代码是将原Excel的文件名作为合并后的sheet名，但是实际操作中sheet名的限制要远多于Excel文件名（长度、特殊符号等）下面代码是将合并后的Excel中的多个sheet按照1、2、3依次命名 '功能：把多个excel工作簿的第一个sh eet工作表合并到一个excel工作簿的多个sheet工作表，新工作表的名称等于原工作簿的名称Sub Books2Sheets()'定义对话框变量Dim fd As FileDialogSet fd = Application.FileDialog(msoFileDialogFilePicker)'新建一个工作簿Dim newwb As WorkbookSet newwb = Workbooks.AddWith fdIf .Show = -1 Then'定义单个文件变量Dim vrtSelectedItem As Variant'定义循环变量Dim i As Integeri = 1'开始文件检索For Each vrtSelectedItem In .SelectedItems'打开被合并工作簿Dim tempwb As WorkbookSet tempwb = Workbooks.Open(vrtSelectedItem)'复制工作表tempwb.Worksheets(1).Copy Before:=newwb.Worksheets(i)'下面这一行中将tempwb.Name修改为inewwb.Worksheets(i).Name = VBA.Replace(i, ".xlsx", "")'关闭被合并工作簿tempwb.Close SaveChanges:=Falsei = i + 1Next vrtSelectedItemEnd IfEnd WithSet fd = NothingEnd Sub 点击运行 -> 运行子过程/用户窗体，运行代码。首先弹出窗口选择要合并的文件
选择文件后会出现窗口的多次打开关闭，代码运行完后在任务栏有一个打开的Excel文件就是合并后的文件
合并完一次后，最开始新建的那个Excel文件除了代码外不会有其他的修改，可以保存为xlsm文件，下次直接打开进入宏运行即可