多语言展示
当前在线:732今日阅读:60今日分享:41

excel中,怎样快速批量合并多个工作表?

excel中,怎样快速批量合并多个工作表?
工具/原料
1

演示电脑:联想刃7000

2

excel版本:excel 2016

方法/步骤
1

分别在sheet1、sheet2工作表输入不同数据,如下图所示。

2

点击菜单栏里的文件点击后在里面选择选项,操作见下图。

3

在Excel选项窗口点击自定义功能区,在右侧勾选开发工具,最后点击确定,操作见下图。

4

菜单栏里显示开发工具后,点击开发工具下的Visual Basic,操作见下图。

5

打开vba窗口后右键Microsoft Excel对象在列表中点击插入下的模块,操作见下图。

6

在工作 薄中输入Option ExplicitSub combine()Dim sh As Worksheet, flag As Boolean, i As Integer, hrow As Integer, hrowc As Integerflag = FalseFor i = 1 To Sheets.CountIf Sheets(i).Name = 'comb' Then flag = TrueNextIf flag = False ThenSet sh = Worksheets.Addsh.Name = 'comb'Sheets('comb').Move after:=Sheets(Sheets.Count)End IfFor i = 1 To Sheets.CountIf Sheets(i).Name <> 'comb' Thenhrow = Sheets('comb').UsedRange.Rowhrowc = Sheets('comb').UsedRange.Rows.CountIf hrowc = 1 ThenSheets(i).UsedRange.Copy Sheets('comb').Cells(hrow, 1).End(xlUp)ElseSheets(i).UsedRange.Copy Sheets('comb').Cells(hrow + hrowc, 1)End IfEnd IfNext iEnd Sub如下图所示。

8

合并后的效果见下图。

总结

1、分别在sheet1、sheet2工作表输入不同数据2、点击菜单栏里的文件点击后在里面选择选项3、在Excel选项窗口点击自定义功能区,在右侧勾选开发工具,最后点击确定4、菜单栏里显示开发工具后,点击开发工具下的Visual Basic,5、打开vba窗口后右键Microsoft Excel对象在列表中点击插入下的模块6、在工作 薄中输入整合工作表代码7、输入后点击菜单栏里运行下的”运行子过程/用户窗体“或直接按F5快捷键运行

注意事项

tips:同时按Alt+F11快捷键也可打开vba

推荐信息