Excel2013教程：多个Excel文件合并到一个Sheet工作表

---

在日常工作中，我们经常会处理大量的Excel文档，而当需要整理这些文档时，常常面临难以归类和查询的问题。为了更便于管理和整理数据，我们可以将多个Excel文档合并到一个Excel文件中，每个文档对应一个Sheet工作表，从而实现方便的查询、分类和整理。

将需要合并的Excel表格放置在同一个文件夹内

首先，将需要合并的所有Excel文件放置在同一个文件夹中，方便后续操作。

创建新的Excel文档并命名为“数据合并.xlsx”

接下来，在Excel中创建一个新的工作簿，并将其命名为“数据合并.xlsx”，这将是我们最终合并数据的目标文件。

使用VBA代码合并Excel文档

1. 打开“数据合并.xlsx”文档，在“Sheet1”工作表的位置右键并选择“查看代码”（快捷键：Alt F11）进入Microsoft Visual Basic for Applications窗口。

2. 在Visual Basic for Applications窗口中，双击左侧的工程窗口中的Sheet1工作表，在右侧的代码区粘贴以下代码：

```vba

Sub CombineWorkbooks()

Dim FilesToOpen

Dim x As Integer

On Error GoTo ErrHandler

False

FilesToOpen _

(FileFilter:"MicroSoft Excel文件(*.xls),*.xls", _

MultiSelect:True, Title:"要合并的文件")

If TypeName(FilesToOpen) "Boolean" Then

MsgBox "没有选中文件"

GoTo ExitHandler

End If

x 1

While x < UBound(FilesToOpen)

Filename:FilesToOpen(x)

Sheets().Move after: _

()

x x 1

Wend

ExitHandler:

True

Exit Sub

ErrHandler:

MsgBox

Resume ExitHandler

End Sub

```

3. 运行上述代码，选择需要合并的Excel文件并打开。

4. 经过一番自动化操作，选定的Excel文档已经成功合并到“数据合并.xlsx”文档的工作表中。

通过以上步骤，我们成功将多个Excel文件合并到了一个Excel文档的不同工作表中，实现了数据的集中管理和整理。这种方法极大地提高了工作效率，让数据处理变得更加便捷和高效。