Excel工具 - 合并多个同类Excel

103 阅读 0 评论 68 点赞

我是靠谱客的博主开放白昼，这篇文章主要介绍Excel工具 - 合并多个同类Excel，现在分享给大家，希望可以做个参考。

一、功能概要：

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

二、代码内容如下：

复制代码

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
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