在日常办公中，我们常常会遇到需要将多个Excel文件中的工作表合并到一个文件中的情况。这种操作虽然看似简单，但如果手动处理，不仅耗时费力，还容易出错。因此，借助宏代码可以极大地提升工作效率。以下将详细介绍如何通过编写宏代码来实现这一功能。
一、准备工作
首先确保你的Excel版本支持VBA（Visual Basic for Applications），这是编写宏的基础工具。打开Excel后按Alt+F11进入VBA编辑器。
二、创建宏
1. 新建模块
在VBA编辑器中，点击菜单栏上的`插入` -> `模块`，这会在左侧项目窗口中创建一个新的模块。
2. 编写代码
将以下代码复制并粘贴到新创建的模块中：
```vba
Sub MergeSheets()
Dim ws As Worksheet
Dim targetWorkbook As Workbook
Dim sourceWorkbook As Workbook
Dim folderPath As String
Dim fileName As String
' 设置目标工作簿
Set targetWorkbook = ThisWorkbook
' 获取用户输入的文件夹路径
folderPath = Application.GetOpenFilename("Excel Files (.xls), .xls", , "请选择包含要合并的工作簿的文件夹")
If folderPath = "False" Then Exit Sub
' 遍历指定文件夹内的所有Excel文件
fileName = Dir(folderPath & "\.xls")
Do While fileName <> ""
Set sourceWorkbook = Workbooks.Open(folderPath & "\" & fileName)
' 复制每个工作表到目标工作簿
For Each ws In sourceWorkbook.Sheets
ws.Copy After:=targetWorkbook.Sheets(targetWorkbook.Sheets.Count)
Next ws
' 关闭源工作簿
sourceWorkbook.Close False
fileName = Dir()
Loop
MsgBox "所有工作表已成功合并！", vbInformation, "完成"
End Sub
```
3. 保存并运行宏
编写完成后，点击工具栏上的绿色三角形按钮运行宏。系统会弹出对话框提示你选择包含待合并Excel文件的文件夹。
三、注意事项
- 确保所有需要合并的Excel文件位于同一个文件夹内。
- 如果目标工作簿中已有相同名称的工作表，则可能会覆盖原有内容，请提前备份重要数据。
- 此脚本适用于`.xls`和`.xlsx`格式的文件。
四、总结
通过上述步骤，我们可以轻松地将多个Excel文件中的工作表合并到单一文件中，大大节省了时间和精力。当然，除了使用宏之外，还可以考虑其他自动化工具或插件来达成类似效果。但无论如何，掌握基本的VBA编程技能始终是提高办公效率的关键所在。
希望以上内容对你有所帮助！如果还有任何疑问，欢迎随时提问。
