今天遇到这么一个问题，需要将多个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