首页 >软件教程 >办公软件 >将多个Excel工作表合并为一个工作表的方法

将多个Excel工作表合并为一个工作表的方法

王林转载: 2024-01-14 22:39:302983浏览

将多个Excel工作表合并为一个工作表的方法

是excel么？

第一步：打开你的工作簿，创建一个空表工作表（sheet1的位置）

第二步：工具菜单-选项-安全性-宏安全性-设置成“中”等

第三步：工具菜单-宏-宏-宏名-输入个名字--点创建

第四步：弹出来一个框框【在“Sub 合并工作表（）”下面，将以下的字符复制粘贴过去】

Dim m As Integer

Dim n As Integer

Dim o As Integer

For m = 2 To 6

n = Sheets(m).[a65536].End(xlUp).Row

o = Sheets(1).[a65536].End(xlUp).Row

Sheets(m).Select

Range(＂a1＂, ＂z＂ & n).Select

Range(＂a＂ & n).Activate

Selection.Copy

Sheets(1).Select

Range(＂a＂ & o + 1).Select

ActiveSheet.Paste

第五步：注意：For m = 2 To 6 如果你有5个工作表你就For m = 2 To 6

如果有7个就 For m = 2 To 8 如果有8个就For m = 2 To 9

以此类推

第六步：打开你之前创建的那个工作表，sheet1.

第七步：工具菜单，选择“宏”—“宏” 点击执行~

就ok啦~

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

新建一个文件夹，将需要合并的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文档界面，新工作表的名称等于原工作簿的名称。