Excel获取所有工作表名称，1句代码1秒钟搞定！

在我们日常的工作中，我们经常用Excel来统计数据，Excel本来就是一个小型的数据库软件，在Excel的工作簿中我们可以新建很多个工作表。

老板经常让我们汇总数据，比如公司存在不同地区的分公司，年末了，老板让你把所有分公司的数据都汇总一下。如下图，这是一个工作簿中包括了若干个地区的销售数据，现在需要把它们汇总到一个表中。

傻傻的方法

看到这么多个工作表，很多人便会开始发挥复制粘贴的速度了，然而几十个表还可以应付得来，如果有几千甚至几万个表呢？如果继续复制粘贴，手会酸痛的，而且整天把时间花在Ctrl+C和Ctrl+V上，难怪月薪只能够那3000。

秒杀的方法

当看到一个工作簿中有几百个工作表时，不要害怕，因为有一个救世主叫VBA，Excel技巧存在固有的限制，但如果用VBA就显得十分容易了。

1.打开上述表格，新建一个名称为“目录”的工作表作为汇总

2.快捷键Alt+F11打开VBA编辑器

3.插入—模块—复制如下代码—运行代码

Sub 获取工作表名称()Dim k As IntegerFor k = 1 To Sheets.Count Cells(k, 1) = Sheets(k).Name NextEnd Sub

操作如下

更多的Office技巧请继续关注头条号：恒哥说Office，持续为你分享Word、Excel、PPT等软件操作！让你工作效率6到飞起！