多个工作表合并一个工作表方法.docx

《多个工作表合并一个工作表方法.docx》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、1.首先把需要合并的excel工作薄整理到一个文件夹中，如图，用来合并到一起的工作薄的名字要注意，这里取名叫“合并工作薄”。2.打开这个excel表，直接按键ALT+F11，进入下图界面。双击如图所示位置的sheet1。3.如图，打开准备好的VBA代码，复制到这个空白的代码编译处，代码如下：Sub工作薄间工作表合并()DimFileOpenDimXAsIntegerApplication.ScreenUpdating=FalseFileOpen=Application.GetOpenFilename(F

2、ileFilter:="MicrosoftExcel文件(*.xls),*.xls",MultiSelect:=True,Title:="合并工作薄")X=1WhileX<=UBound(FileOpen)Workbooks.OpenFilename:=FileOpen(X)Sheets().MoveAfter:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)X=X+1WendExitHandler:Application.ScreenUpdating=Tr

3、ueExitSuberrhadler:MsgBoxErr.DescriptionEndSub4.注意事项，如图，注意工作薄的名字，同时，注意代码中设定的excel版本。如果出现无法编译的情况，可以用这个共享的txt。5.回到“合并工作薄”的excel表格中，如图，点击工具（没有的到excel的选项中添加），选择宏。6.选择宏以后会出现下图界面，直接双击图中选项。7.双击后弹出选择待合并的文件夹中工作薄，直接全选要合并的工作薄即可。8.如图，这就是合并后的效果，这两个工作薄是下载的2014年的高考录取分数

4、线的内容，效果不错，而且合并工作薄本身的工作表是不会被占用的，是新建的工作表。