【Excel技巧】快速合并多个Excel表

工作中，我经常会遇到需要把多个Excel表统计汇总到一张表中。

笨办法是把每一个表的内容复制粘贴到新的Excel表中。

如果只有几个表，这么操作费不了多少时间，可如果需要合并10个以上的Excel表，这工作量就有点大了。

image.png

怎样才能把这些表快速合并成1个表呢？

别着急，今天就教你：快速合并多个Excel表！

1、首先，把需要合并的表格都放到同一个文件夹内。

2、然后，在这个文件夹内新建一个新的Excel表，打开后，按快捷键 Alt + F11，调出代码界面。

3、把以下这段代码复制到代码框。

Sub sheets2one（）

　　‘定义对话框变量

　　Dim cc As FileDialog

　　Set cc = Application.FileDialog（msoFileDialogFilePicker）

　　Dim newwork As Workbook

　　Set newwork = Workbooks.Add

　　With cc

　　If .Show = -1 Then

　　Dim vrtSelectedItem As Variant

　　Dim i As Integer

　　i = 1

　　For Each vrtSelectedItem In .SelectedItems

　　Dim tempwb As Workbook

　　Set tempwb = Workbooks.Open（vrtSelectedItem）

　　tempwb.Worksheets（1）.Copy Before：=newwork.Worksheets（i）

　　newwork.Worksheets（i）.Name = VBA.Replace（tempwb.Name, ".xls", ""）

　　tempwb.Close SaveChanges：=False

　　i = i + 1

　　Next vrtSelectedItem

　　End If

　　End With

　　Set cc = Nothing

　　End Sub

写入代码

4、点击运行按钮

点击运行

5、弹出对话框，选中要合并的Excel 表，点确定

选中

6、等待几秒钟，看，这些表都进来了。搞定啦！

合并完成

怎么样，你学会了吗？