【原】制作目录和根据目录生成多个工作表

与 30万 读者一起学Excel

昨天的案例，客户的名称原先已经手写出来了。十几个客户名称，手写了有部分出错，如何才能又快又准的将客户名称提取出来呢？

提取客户名称，一般都是采用VBA。按快捷键Alt+F11，插入模块，将代码复制粘贴进去，点击运行按钮即可生成。

Sub 目录()

    Dim i%

        For i = 2 To Sheets.Count

                k = k + 1

                Cells(k + 1, 1) = Sheets(i).Name

        Next

End Sub

提取客户做目录这种很常用，还有一种就是逆操作，根据已经有的目录，生成工作表。

生成工作表，一般都是采用VBA。按快捷键Alt+F11，插入模块，将代码复制粘贴进去，点击运行按钮即可生成。

Sub 生成工作表()

    Dim i%

    For i = 2 To Range("A65536").End(3).Row

        Sheets.Add(after:=Sheets(Sheets.Count)).Name = Sheets(1).Range("A" & i)

    Next

End Sub

最后，所有使用代码的工作簿，都需要另存为启用宏的工作簿。

VBA对于大多数人而言，难度都很大，将自己的目标定为懂得运行代码，懂得修改简单的代码即可。

推荐：一键生成目录（完善版）

上篇：VLOOKUP函数多表查找的通用公式

奖励固然重要，但更重要的是学到知识。

每天花4个小时，2个小时写文章，2个小时等着互动，就看到十几条留言，还有几个打赏，真的对不起每天付出的时间。

换位思考，如果你是卢子，你有何感想？

作者：卢子，清华畅销书作者，《Excel效率手册 早做完，不加班》系列丛书创始人，个人公众号：Excel不加班（ID：Excelbujiaban）