Question

如何快速把多个excel表合并成一个excel表，并且将每个sheet区分开来。

之前百度上有代码，但是无法区分sheet，求大神指点

Answer 1

新建一个文件夹，将需要合并的excel文档复制到该文档目录下。

2/7
新建一个EXCEL空白文档，鼠标移动到在sheet工作表上单击右键，选择“查看代码”选项，进入VBA控制台。

3/7
在菜单栏点击“插入”菜单，选择“模块”选项，进入模块编辑界面。

4/7
在编辑框中复制以下代码，注意符号，需是英文状态下。
'功能：把多个excel工作簿的第一个sheet工作表合并到一个excel工作簿的多个sheet工作表，新工作表的名称等于原工作簿的名称Sub Books2Sheets() '定义对话框变量 Dim fd As FileDialog Set fd = Application.FileDialog(msoFileDialogFilePicker) '新建一个工作簿 Dim newwb As Workbook Set newwb = Workbooks.Add With fd If .Show = -1 Then '定义单个文件变量 Dim vrtSelectedItem As Variant '定义循环变量 ，开始文件检索，打开被合并工作簿 ，复制工作表，把新工作簿的工作表名字改成被复制工作簿文件名，这儿应用于xls文件，

5/7
代码输入后，点击菜单项中“运行”，选择“运行子过程”选项，或者按下F5快捷键，运行代码。

6/7
运行代码后，会弹出文档选择界面，找到新建文件夹的路径，选择你所需要合并的文档，选择文档后，点击“打开”，代码正在运行，运行时间视文档数目而定。

7/7
代码段运行结束后，就会出现已经合并完成的excel文档界面，新工作表的名称等于原工作簿的名称。