Excel多表合一 （Excel2007版）

1、如图所示 打开你要合并的其中一个表格 作为基础 然后按 键盘上的 ALT加F11 组合键 会弹出如 图1 一样的对话框

3、如图所示 在 右侧空白处 复制粘贴下面的代码 ：Sub 工作薄间工作表合并()Dim FileOpen, shtDim X As IntegerApplication.ScreenUpdating = FalseFileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xls),*.xls"（<----此处注意文件格式）, MultiSelect:=True, Title:="（此处填写你上面要合并的Excel文件名称）")X = 1While X <= UBound(FileOpen)Workbooks.Open Filename:=FileOpen(X)Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)X = X + 1WendExitHandler:Application.DisplayAlerts = FalseFor Each sht In SheetsIf sht.UsedRange.Count = 1 Then sht.DeleteNextApplication.DisplayAlerts = TrueApplication.ScreenUpdating = TrueExit Suberrhadler:MsgBox Err.DescriptionEnd Sub