EXCEL制作目录和根据目录生成多个工作表（excel做目录表）

转自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对于大多数人而言，难度都很大，将自己的目标定为懂得运行代码，懂得修改简单的代码即可。