Excel | VBA（2）——生成工作表目录

清晨，与您相约

问题情境

韩老师曾经写过一篇文章：

一、函数法：

需要“公式—名称”处在新建名称对话框中引用位置输入公式：

=INDEX(GET.WORKBOOK(1),ROW(A1))&T(NOW())。再利用公式“=IFERROR(HYPERLINK(目录&"!A1",MID(目录,FIND("]",目录)+1,99)),"")”生成目录。

此方法可行，但公式稍难写，一不注意就错了。

二、非函数法：

利用“兼容性报表”生成目录。这种方法虽没有太复杂的公式，但不容易被想到，而且生成的目录带有单元格地址，看起来不像纯正的目录。

今天介绍VBA的方法，只用简单的代码即可生成目录。

VBA实现

在代码窗口中输入代码：

Sub 目录()

For x = 2 To Sheets.Count

Cells(x, 1).Value = Sheets(x).Name

Next

End Sub

如下图：

此段代码应用了For-Next循环语句，读取从第2个一直到最后一个工作表，然后将每个工作表的名称依次写入目录工作中的第1列单元格。

插入一个按钮，并指定宏，如下图：

则可实现点击：生成目录按钮，自动生成工作表目录。

如不知按钮如何插入，或者加载宏以后的文件如何保存，请参考：

--------------------------------

------------------------------

如感觉实用，可点亮“在看”哦！

本站仅提供存储服务，所有内容均由用户发布，如发现有害或侵权内容，请点击举报。