工作中，我经常会遇到需要把多个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、等待几秒钟，看，这些表都进来了。搞定啦！
合并完成
怎么样，你学会了吗？
