写入多个表_Excel VBA(14) – 创建工作表名称列表

今天还是用简单案例帮助大家理解循环语句。

案例：

昨天说了如何根据目录创建工作表？现在反过来，如何给所有工作表创建目录？

下面这个工作簿，有多个工作表，希望在 Sheet1 的 A 列显示除 Sheet1 外所有工作表的名称目录，用 VBA 如何实现？

方法：

1. 按 Alt + F11 打开 VBE，输入以下代码：

Sub SheetName()

Dim sht As Worksheet, i As Integer

i = 0 ‘i 为啥从 0 开始计数？因为sheet1不需要写入目录，它占用了一个统计变量值。如果 i 从 1 开始的话，就是从 A2 单元格开始写

For Each sht In Worksheets '历遍所有工作表

If sht.Name <> "Sheet1" Then Cells(i, "A") = sht.Name '除 sheet1 之外，将所有工作表名称依次写入 A 列 第 i 行

i = i + 1

Next sht

End Sub

2. 制作按钮：

1) 在表格界面点击“开发工具”-->“插入”-->“按钮”

2) 将按钮名称改为“列出工作表名称”

3) 右键单击按钮-->选择“指定宏”

4) 选择 SheetName 这个宏，点击“确定”

现在就完成了，这就是演示效果：