精选优质文档-倾情为你奉上1.首先把需要合并的excel工作薄整理到一个文件夹中，如图，用来合并到一起的工作薄的名字要注意，这里取名叫“合并工作薄”。2.打开这个excel表，直接按键ALT+F11，进入下图界面。双击如图所示位置的sheet1。3.如图，打开准备好的VBA代码，复制到这个空白的代码编译处，代码如下：Sub 工作薄间合并()Dim FileOpenDim X As IntegerApplication.ScreenUpdating = FalseFileOpen = Application.GetOpenFilename(FileFilter:=Microsoft Excel文件(*.xls),*.xls, MultiSelect:=True, Title:=合并工作薄)X = 1While X = UBound(FileOpen)Workbooks.Open Filename:=FileOpen(X)Sheets().Move After:=ThisWorkbook.Sheets(ThisW
