某日，

阿呆一边复制粘贴一边向小花嘟囔

“哎呦，一个一个复制，好累啊！”

小花转头看了看这位"同桌"，

原来，他的Excel工作簿包含了30多张SHEET表，

这会儿正按领导要求制作目录呢！

小花：你这是要提取所有工作表名吧？

阿呆：是啊，只能逐一复制粘贴了吗？大神，你有什么好方法吗？

小花：当然了，给你一句VBA吧，一键搞定！

阿呆：哇塞，什么神器，秒杀啊！！！你是这么办到的！

小花：这只是VBA的基本操作，就这简单的几行代码而已！

Sub 一键提取表名()

Dim i As Integer

For i = 2 To Worksheets.Count

Sheets("目录").Range("A" & i) = Worksheets(i).Name

Next i

End Sub

阿呆：这几句话就能实现这么强大的功能？VBA好强大。快告诉我怎么用这些语句？

小花：很简单的，就两步。

Step1: 新建一个工作簿，按Alt+F11，打开VBE窗口，插入模块，在代码窗口插入代码；

Step2: 将工作簿另存为.xlsm（启用宏的工作簿）格式。以后每次通过开发工具-宏或快捷键方式就可以启用宏。也可以像小花这样，右键某一对象（图形、图片都可以）上，再菜单中选择指定宏，将对象关联宏，以后就可以通过点击对象启用宏了。

具体操作实例请参考《挑战100+指定名称工作薄，你敢吗？》一文。

阿呆：OK，很简单嘛！代码我是不会写，但会用就足够了！小花老师以后要多多分享这些实用的简单VBA给我哈，省时省力，按时下班，哈哈哈！

小花：没问题！

————THE END