0
点赞
收藏
分享

微信扫一扫

如何将多个Excel合并到一个Excel中?


今天遇到这么一个问题,需要将多个Excel表格中的数据汇总表,合并在一个Excel中,并且显示一致。

因此编写了以下代码来解决这个问题,

1.在Excel中按Alt+F11,快速调出命令控制台

2.工具栏选择插入——模块——将以下脚本代码复制进去,按F5立即运行,即可完成。

Sub 合并工作簿()

Dim FileOpen
Dim X As Integer
Application.ScreenUpdating = False
FileOpen = Application.GetOpenFilename(FileFilter:="", MultiSelect:=True, Title:="请选择需要合并的工作簿")
X = 1
If TypeName(FileOpen) = "Boolean" Then
MsgBox "未选择任何文件, 退出."
Exit Sub
End If

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
MsgBox "处理已完成"
Exit Sub

errhadler:
MsgBox Err.Description

End Sub



举报

相关推荐

0 条评论