Excel工具 - 合并多个同类Excel

一、功能概要：

日常工作中我们会因为各种制约因素的原因，需要将多个同类型的Excel合并，这些Excel有相同的标题，相同的字段，相同的列，但需要将多个Excel中的内容续在一起，形成一个Excel文件。
本章的分享，是一个现成的带宏的Excel模板，可以直接使用选取需要合并的Excel，快速的将多个Excel整合到一起，方便快捷。

二、代码内容如下：

Sub merge()
    Dim FileOpen
    Dim X As Integer
    Application.ScreenUpdating = False
    FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(.xlsx),.xlsx", MultiSelect:=True, Title:="Merge Workbooks")
    X = 1
    While X <= UBound(FileOpen)
        Workbooks.Open Filename:=FileOpen(X)
        Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
        X = X + 1
    Wend
    ThisWorkbook.Sheets("sheet1").Activate
    For j = 1 To Sheets.Count
    If Sheets(j).Name <> ActiveSheet.Name Then
        X = Range("A65536").End(xlUp).Row + 1
        Sheets(j).UsedRange.Copy Cells(X, 1)
    End If
Next
    Application.ScreenUpdating = True
    Rows("1:1").Select
    Selection.Delete shift:=xlUp
    Range("A1").Select
    MsgBox "Merge Finished!"
    Range("A1").CurrentRegion.Select
    ActiveSheet.Range("A:BB").RemoveDuplicates Columns:=1, Header:=xlNo
ExitHandler:
    Exit Sub
errhadler:
    MsgBox Err.Description
End Sub

三、操作步骤：

如果你的Excel文件开启了开发者工具，且启用了宏，直接将代码粘贴进去，按组合键Ctrl+M，选择需要合并的Excel多文件，点击确定等待几秒钟即可完成合并。
记得将文件保存为.xlsm格式哦~

四、其他方法介绍：

1、Excel开启开发者工具：

1）打开excel，点击左上角“文件”按钮

2）打开左下角的“选项”

3）点击弹出菜单的“自定义功能区”

4）勾选右边“开发工具”并“确定”保存(如果右边没有，就从左边选择添加到右边)

5）添加完成就能在上方找到“开发工具”了

2、Excel启用宏：

1）点击左上角的“开始”图标，打开“选项”。

2）点击“信任中心”，点击“信任中心设置”。

3）点击左侧的“宏设置”，勾选“启用所有宏”。

介绍完毕，希望可以帮助到大家~

最后

以上就是开放白昼为你收集整理的Excel工具 - 合并多个同类Excel的全部内容，希望文章能够帮你解决Excel工具 - 合并多个同类Excel所遇到的程序开发问题。

如果觉得靠谱客网站的内容还不错，欢迎将靠谱客网站推荐给程序员好友。