如何快速的合并多个 excel 工作簿成为一个工作簿

Question

如题所述

Answer 1

可以利用VBA快速合并多个工作簿

软件版本：Office2013

方法如下：

1.新建一个工作簿或者打开一个要合并到的工作簿，Alt+F11，打开VBA编辑界面，输入如下代码：

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

Dim FileOpen

Dim X As Integer

Application.ScreenUpdating = False

FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xlsx),*.xlsx", MultiSelect:=True, Title:="合并工作薄")

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.ScreenUpdating = True

Exit Sub

errhadler:

MsgBox Err.Description

End Sub

2.F5执行代码，选择要合并的多个工作簿后，点击打开：

3.这样，选择的工作簿就变成了当前工作簿的工作表，从而合并到了一个工作簿中：

Answer 2

EXCEL2007版本的步骤如下，其它版本大同小异：
1、打开需要被合并的工作表
2、选定此工作薄中的全部工作表（就像选定文件一样）
3、右击选定的工作表组，移动或复制工作表。
4、在弹出的对话框中选择合并后的工作表，如果人保留原工作表，请勾选建立副本，然后选择要将工作表移动或复制到的位置，确定。OK
5、重复以上步骤，就可以将多个工作薄合并为一个工作薄
下面链接是我对此的回答，有图片说明，可以参考
http://zhidao.baidu.com/question/1672155344256708307本回答被提问者采纳

Answer 3

好像没特别方法。

excel-数据-现有连接