工具/原料
- Excel 2013
方式/步骤
- 1
筹办我们的案例数据，首先将需要汇总的excel放入统一个目次下。本次案例只筹办了3个excel，多个的时辰同样操作即可。3个excel中数据如图所示，别离为A/B/C三个部分员工出京环境。
- 2
接下来我们起头操作，新建空白XLS工作表，定名为出京环境-汇总。
- 3
打开excel，在工作表sheet1处点击右键，选择【查看代码】，则会弹出下图中的代码框。
- 4
在代码框中写入代码（直接将下述代码粘贴至代码框即可）：
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").End(xlUp).Row + 2, 1) = Left(CurName, Len(CurName) - 4) For G = 1 To Sheets.Count mywb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1) Next mywbn = mywbn & Chr(13) & mywb.Name mywb.Close False End With End If CurName = Dir Loop Range("B1").Select Application.ScreenUpdating = TrueMsgBox"此次共归并了" & Num &"个工作薄下的全数工作表。如下：" & Chr(13) & mywbn, vbInformation,"提醒"End Sub
- 5
直接运行代码，点击【运行】-【运行子过程/用户窗体】即可。
- 6
点击弹出框中的【运行】按钮，稍等一下数据归并完当作，会有提醒框提醒本次数据归并环境，截止此刻文件目次下所有的文件已全数汇总至当前工作表内，封闭对应窗口，看下我们的工作表，已将其他文件中的信息汇总至当前工作表，我们就可以再当前工作表中去做一些数据处置及阐发了。如图所示
注重事项
- 本次需要注重识此外excel格局为xls,若是是xlsx需要响应的点窜代码中 MyName = Dir(MyPath &"\" &"*.xlsx")
- 请利用微软exlce进行操作，WPS并不撑持该功能
