vba 提取 json某个值_只需3分钟使用vba加函数快速创建excel工作表目录，简单到没朋友...

Hello,大家好，今天跟大家分享下如何制作excel的工作表目录，特别适合工作表比较多的同学，我们采用的是vba加函数的方式进行目录的设置，使用vba获取工作表名称，然后利用函数制作超链接，非常简单，下面就跟我来一起操作下吧

1.新建工作表

首先我们需要新建一个工作表将它放在excel文件的第一个位置，并将A1单元格的值命名为目录

2.输入代码

点击开发工具，然后点击visual basic打开vba编辑器，我们点击后面括号里面有工作薄名称的工程，然后点击插入，选择插入模块，然后双击模块，输入如下代码，然后按F5运行提取工作表名称

Sub 提取工作表名称()

Dim i As Integer '将i定义为整数

For i = 2 To Sheets.Count '将i赋值让他等于2到工作表个数

Cells(i, 1) = Sheets(i).Name '让单元格的值等于工作表名称的值

Next '结束循环

End Sub

3.创建连接

输入公式：=HYPERLINK("#'"&A2&"'!A1