一个简单的VBA自动生成目录

<大小土豆>

生成目录

虽然是个简单的东西！

但比较实用。

代码如下：

Sub 目录()

    Dim x%

    On Error Resume Next

    Application.ScreenUpdating = False

    Application.DisplayAlerts = False

    Sheets('目录').Delete

   '防错机制（工具箱）

    Application.DisplayAlerts = True

    Sheets.Add(before:=Sheets(1)).Name = '目录'

    For x = 1 To Sheets.Count

        Cells(x, 1) = '=hyperlink(''#'' & Sheets(x).Name & ''!A1'',''' & Sheets(x).Name & ''')'

    Next x

    Application.ScreenUpdating = True

End Sub

VBA完成

完全没有技术含量。

完了！

就是这么简单

点一下

修改了或者变化了再一点

操作简单才是硬道理！

有空常来群里玩！

加群链接：

http://jq.qq.com/?_wv=1027&k=40CUwwP

作者  貓ゞ哥

一个让你有理由去爱上Excel的公众号

一个让你学会轻松处理Excel数据的公众号