Excel多表合一 （Excel2007版）

Excel多表合一 （Excel2007版）

多表合一： 有时候我们需要把多张excel表合并为一张Excel表 可以依照下面这个办理

（这是我第一次写经验 写的不好还望见谅）

（话说网上也有类似的 不过合并后还有多余的空表 我经过咨询高人 后 整理所写）

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

在弹出的对话框中点击左上角红色长方框中的 红圈里的内容

如图所示 在 右侧空白处 复制粘贴下面的代码 ：

Sub 工作薄间获购工作表合并()

Dim FileOpen, sht

Dim X As Integer

Application.ScreenUpdating = False

FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xls),*.xls"（<----此处注意文件格式）, MultiSelect:=True, Title:="（此处填写你上面要合并的Excel文件名称）")

X = 1

While X <= UBound(FileOpen)

Workbooks.Open Filename:=FileOpen(X)

Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)

X = X + 1

Wend

ExitHandler:

Application.DisplayAlerts = False

For Each sht In Sheets

If sht.UsedRange.Count = 1 Then sht.Delete

Next

Application.DisplayAlerts = True

Application.ScreenUpdating = True

Exit Sub

errhadler:

MsgBox Err.Description

End Sub

回到表中 如图所示 点击 开发工具 =====> 宏 会弹出如图一样的对话框 点击 红色长框 中的内容

点击 红色长框 中的内容 会弹出另一个对话框 （如图所示） 在这速蚊诉个图中找到你要合并的其它表格的地址 点击你要合并的表格

到此 多表合并结束 上面打开的 VB 对话框 可以保存关闭了