excel 合并工作簿的两种方法

办公教程导读

收集整理了【excel 合并工作簿的两种方法】办公软件教程，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含841字，纯文字阅读大概需要2分钟。

办公教程内容图文

平时工作，可能会因不同的文件创建多个excel工作簿，有些工作簿只包含一个单独的工作表，有些工作簿有多个工作表。时间久了，就想将有用的工作簿合并到一起，不至于每次都来来回回的打开多个工作表。如何实现合并多个工作簿呢?

　　使用命令合并工作簿的方法是这样的：
　　打开全部工作簿，右键点击工作名，出现"移动或复制工作表"对话框，在“工作簿”下拉列表选择目标工作簿，在“下列选定工作表之前”选择相应的工作表，可以对工作簿进行移动或者复制，如果是复制，可以勾选“建立副本”。

　　使用宏代码实现合并多个工作簿的方法：
　　将下面代码复制到代码页面，然后运行宏就可以了。

　　Sub 合并工作薄()

　　Dim FilesToOpen

　　Dim x As Integer

　　On Error GoTo ErrHandler

　　Application.ScreenUpdating = False

　　FilesToOpen = Application.GetOpenFilename _

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

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

　　If TypeName(FilesToOpen) = "Boolean" Then

　　MsgBox "没有选中文件"

　　GoTo ExitHandler

　　End If

　　x = 1

　　While x <= UBound(FilesToOpen)

　　Workbooks.Open Filename:=FilesToOpen(x)

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

　　x = x + 1

　　Wend

　　ExitHandler:

　　Application.ScreenUpdating = True

　　Exit Sub

　　ErrHandler:

　　MsgBox Err.Description

　　Resume ExitHandler

　　End Sub

办公教程总结

以上是为您收集整理的【excel 合并工作簿的两种方法】办公软件教程的全部内容，希望文章能够帮你了解办公软件教程excel 合并工作簿的两种方法。
如果觉得办公软件教程内容还不错，欢迎将网站推荐给好友。