下面说下Excel合并当前工作簿下的所有工作表为一个工作表的方法。
工具/原料
office
方法/步骤
1、打开要处理的excel，点击下方加号新建一个空白工作表右键进行重命名；
2、右键新建的工作表，选择查看代码选项打开；
3、复制以下代码到窗口中Sub合并当前工作簿下的所有工作表()Application.Scree艘绒庳焰nUpdating=False僻棍募暖Forj=1ToSheets.CountIfSheets(j).Name<>ActiveSheet.NameThenX=Range("A65536").End(xlUp).Row+1Sheets(j).UsedRange.CopyCells(X,1)EndIfNextRange("B1").SelectApplication.ScreenUpdating=TrueMsgBox"当前工作簿下的全部工作表已经合并完毕！",vbInformation,"提示"EndSub
4、之后按运行按钮或者按f5键运行vba代码；
5、之后即可快速合并所有的工作表为一个，但此时合并的工作表有很多表头，而我们实际只需要一个表头即可，其他的表头需要把其删除掉；
6、选择开始菜单里的查找和选择选项打开，输入出生率，之后点击查找；
7、点击查找和替换窗口里的内容，之后按ctrl+a键全选所有的内容,接着按下ctrl键点击第一行的标题内容取消选择，回到表中，右键删除选项，选择所有的行即可删除重复的标题行，完成所有工作表的合并工作。
Excel合并当前工作簿下的所有工作表为一个工作表注意事项
1、1.龅歧仲半打开要处理的excel，点击下方加号新建一个空白工作表右键进行重命名；2.右键新建的工作表，选择查看代码选项打开；惺绅寨瞀3.复制代码到窗口中；4.之后按运行按钮或者按f5键运行vba代码；5.之后即可快速合并所有的工作表为一个，但此时合并的工作表有很多表头，而我们实际只需要一个表头即可，其他的表头需要把其删除掉；6.选择开始菜单里的查找和选择选项打开，输入出生率，之后点击查找；7.点击查找和替换窗口里的内容，之后按ctrl+a键全选所有的内容,接着按下ctrl键点击第一行的标题内容取消选择，回到表中，右键删除选项，选择所有的行即可删除重复的标题行，完成所有工作表的合并工作。