告别Excel手动操作！轻松汇总命名混乱的工作表数据

先来看看动态效果图：

工作中，一个工作簿中有很多张工作表，而工作表的名字有多种命名方式，

现在想以字母开头，有数字又有汉字的工作表，将数据合并到一张工作表中。

只需简单几步：

第一步

选择“开发工具”并点击“Visual Basic”。

接着，插入一个模块，接下来，双击你刚刚插入的模块，这时候会弹出一个代码编辑窗口。

别担心，你不需要自己写代码，只需要把我这段神奇的代码复制粘贴进去就行！

我把代码放在这里，可以直接进行复制粘贴：

Sub 工作表汇总()

Dim ws As Worksheet

For Each ws In Worksheets

If ws.Name Like "[a-zA-Z]####[一-龢][一-龢]" Then

ws.Range("a2", ws.Cells(Rows.Count, 3).End(xlUp)).Copy _

Sheets("汇总表").Cells(Rows.Count, 1).End(3).Offset(1, 0)

End If

Next

End Sub

完成这些操作后，回到你的Excel汇总表中。

第二步

好了，代码搞定之后，我们回到Excel的汇总表里。

这时候，再次点击“开发工具”，然后选择“宏”。

在弹出的对话框里，你会看到一个叫做“工作表汇总”的宏，没错，就是它！选中它，然后点击“执行”。

当当当当！奇迹出现了！你会发现，那些原本命名混乱的工作表数据，现在已经全部被汇总到了你的汇总表里。

是不是超级简单，超级实用？

所以呀，小伙伴们，下次遇到这种命名混乱的工作表时，别再头疼了，直接用我这个方法，轻松搞定！

记得分享给你的朋友们哦，让他们也能享受到这份便利！