如何将多个Excel中的数据快速合并至一个工作表 _2013

我们工作常用的使用Excel表格取收集一些数据，例如疫情期间，公司通过固定excel表格让员工填写信息并以部门的形式汇总反馈，当我们收到几十份甚至几百份信息反馈时，我们可能需要面临着如何将这么多excel中的数据汇总到一个工作表中，除了一个个打开拷贝复制外，我们今天介绍一个快速方法。
需要这些哦
Excel 2013
方式/
1筹办我们的案例数据，起首将需要汇总的excel放入统一个目次下。本次案例只筹办了3个excel，多个的时辰同样操作即可。 3个excel中数据如图所示，别离为A/B/C三个部分员工出京环境。

文章插图

文章插图

2接下来我们起头操作，新建空白XLS工作表，定名为出京环境-汇总。

文章插图

3打开excel，在工作表sheet1处点击右键，选择【查看代码】，则会弹出下图中的代码框。

文章插图

文章插图

4【如何将多个Excel中的数据快速合并至一个工作表】在代码框中写入代码（直接将下述代码粘贴至代码框即可）：
Sub 数据归并() Dim Curdir, CurName, Name Dim mywb As Workbook, mywbn As String Dim G As Long Dim Num As Long Dim BOX As String Application.ScreenUpdating = False Curdir = ActiveWorkbook.Path CurName = Dir(Curdir & "\" & "*.xls") Name = ActiveWorkbook.Name Num = 0 Do While CurName <> "" If CurName <> Name Then Set mywb = Workbooks.Open(Curdir & "\" & CurName) Num = Num + 1 With Workbooks(1).ActiveSheet .Cells(.Range("B65536").(xlUp).Row + 2, 1) = Left(CurName, Len(CurName) - 4) For G = 1 To Sheets.Count mywb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").(xlUp).Row + 1, 1) Next mywbn = mywbn & Chr(13) & mywb.Name mywb.Close False With If CurName = Dir Loop Range("B1").Select Application.ScreenUpdating = TrueMsgBox "此次共归并了" & Num & "个工作薄下的全数工作表。如下：" & Chr(13) & mywbn, vbInformation, "提醒" Sub