excel中,怎样快速批量合并多个工作表?
工具/原料
演示电脑:联想刃7000
excel版本:excel2016
方法/步骤
1、分别在sheetsheet2工作表输入不同数据,如下图所示。
2、点击菜单栏里的文件点击后在里面选择选项,操作见下图。
3、在Excel选项窗口点击自定义功能区,在右侧勾选开发工具,最后点击确定,操作见下图。
4、菜单栏里显示开发工具后,点击开发工具下的VisualBasic,操作见下图。
5、打开vba窗口后右键MicrosoftExcel对象在列表中点击插入下的模块,操作见下图。
6、在工作薄中输入OptionExplicitSubcombine()Dimsh咯悝滩镞AsWorksheet,flagAsBoolean,iAsInt髫潋啜缅eger,hrowAsInteger,hrowcAsIntegerflag=FalseFori=1ToSheets.CountIfSheets(i).Name="comb"Thenflag=TrueNextIfflag=FalseThenSetsh=Worksheets.Addsh.Name="comb"Sheets("comb").Moveafter:=Sheets(Sheets.Count)EndIfFori=1ToSheets.CountIfSheets(i).Name<>"comb"Thenhrow=Sheets("comb").UsedRange.Rowhrowc=Sheets("comb").UsedRange.Rows.CountIfhrowc=1ThenSheets(i).UsedRange.CopySheets("comb").Cells(hrow,1).End(xlUp)ElseSheets(i).UsedRange.CopySheets("comb").Cells(hrow+hrowc,1)EndIfEndIfNextiEndSub如下图所示。
7、输入后点击菜单栏里运行下的”运行子过程/用户窗体“或直接按F5快捷键运行,操作见下图。
8、合并后的效果见下图。