刚需技能~多个excel文件一秒汇总在一个里

工作提效除了是老板的要求，也是自我成长最好的“小鞭子”。当你把别人30分钟，1个小时的工作在几分钟之内瞬间搞定时，不仅能获得众目睽睽。。。 而且还能拧出大把时间留给自己，学习成长。

在完成工作同时也能获得乐趣，跟着小娘子get新技能，然后你会发现，工作其实也可以很精彩~

来咯来咯，说说今天小技能的应用场景：

比如你要汇总全国分行或者你要汇总全国各地分公司的某一数据，在一个excel里完美呈现

天真的你还在复制粘贴，CTRL+c /+v么

来~，小娘子送上热气腾腾的小功略，一秒（额 有点夸张）完成汇总

举个栗子

比如说，我想把表1，表2，表3，都合并到汇总里

还是我这黑乎乎的桌面

首先，你要双击打开“汇总”，右键sheet1，点击小红框框“查看代码”

然后把下面这些小字母，统统粘贴进去。

Sub test()

Dim str()

Dim i As Integer

Dim wb, wb1 As Workbook

Dim sht As Worksheet

Application.ScreenUpdating = False

On Error Resume Next

Set wb1 = ActiveWorkbook

Set sht1 = ActiveSheet

On Error Resume Next

str = Application.GetOpenFilename("Excel数据文件,*.xls*", , , , True)

    For i = LBound(str) To UBound(str)

        Set wb = Workbooks.Open(str(i))

        For Each sht In wb.Sheets

            sht.Copy after:=wb1.Sheets(wb1.Sheets.Count)

            wb1.Sheets(wb1.Sheets.Count).Name = Split(wb.Name, ".")(0) & sht.Name

        Next

        wb.Close

    Next

Application.ScreenUpdating = True

End Sub

变成酱紫~

粘贴好以后，让它开始干活吧，点击“运行”小按钮，绿绿的这个

接下来画面跳转到了你可以选择文件的窗口了，可以把想要汇总的bangbangbang都选进来