工作中，我们有时会需要将多个工作表Sheet的名称提取出来，制作成一个目录

如果一个一个去复制粘贴，效率肯定是很低的，如果Sheet数量很多，会严重影响我们的工作进度，那该如何处理呢？
我们可以用VBA的方法快速处理
步骤：
Step1: 首先调出【开发工具】选项卡，单击【文件】选项卡-【选项】-【自定义功能区】，在主选项卡中，把【开发工具】前面的“√”选上，然后确定即可


Step2：单击 【开发工具】选项卡，在“代码”选项组中选择“Visual Basic”，弹出【模块代码】编辑框，选择Microsoft Excel 对象，然后单击【插入】选项卡，选择【模块】，然后把写好的宏放在右边的编辑框里，然后把代码编辑框关掉


VBA代码如下：
Sub 提取工作表名称()

Dim i!

Cells(1, 1).Value = “表名”

For i = 1 To Sheets.Count

Cells(i + 1, 1).Value = Sheets(i).Name

Next i

End Sub
Step3：单击Excel中的【插入】选项卡，单击【形状】按钮，随便选择一个文本框，然后输入文字，单击文本框，鼠标右键，选择【指定宏】选项，选择刚才编辑的宏，然后确定即可，当我们单击“提取工作表的名称”按钮时，在A列就会看到每个表的名称都提取出来了


不会VBA也可以快速提取

欢迎关注和转发


END

打开工作簿发现工作表数量太多了，都不知道每张表格是什么内容。所以需要建立一张“目录”工作表，放在工作表的第一张，轻松点击“目录”里的每张工作表名称，跳转到相应工作表，同时制作“返回”超链接，回到目录。
▼一、制作目录超链接。
① 工作表太多，有好几百张，一个一个手动输入工作表名称太麻烦，通过复制粘贴简单的VBA代码就可以自动批量提取工作表名称。
如图1：有表1、表2、表3等12张工作表，我们先在“表1”前面插入一张新的工作表，取名“目录”。
图1
② 第二步就是复制“提取工作表名称的VBA代码”，没有代码的小伙伴可以把图片里代码的内容手动输入在Excel表格里保存好，需要的时候打开表格，直接复制粘贴就可以了。图2：
图2:批量提取工作表名称VBA代码
③ 复制代码后，鼠标在“目录”这张表格的名称上点“右键”——“查看代码”，点击就会进入VBA编辑窗口。图3：
图3：VBA编辑窗口
④ 当有很多个工作簿都处于打开状态时，VBA编辑窗口里就会显示所有的工作簿，在“窗口”的左边找到自己需要建“目录”的工作簿，在该工作簿下找到“目录”这个文件，双击它，再在右边的“代码窗口”粘贴VBA代码，点上方“小绿三角”就运行成功了，关掉窗口。图4：
图4
⑤ 这时“目录”工作表的A列就已经有所有工作表的名称了。现在我们就可以用超链接函数HYPERLINK来批量制作目录超链接。
公式模板：=HYPERLINK("网络链接地址或工作簿的地址","单元格显示什么文字")。
注意：链接地址或工作簿地址和显示的文字如果不是直接引用单元格，而是文本内容手动输入，就需要加双引号。链接地址就是要跳转的地址链接，显示的文字就是类似批注，对这个链接的一个备注说明(可以让你注明这个链接是跳转到哪里的，以免忘记他的功能)。
在“目录”工作表的B2单元格输入公式=HYPERLINK("#"&A2&"!A1",A2)，然后下拉公式，目录制作完成。公式解析：跳转到当前工作簿或其他工作簿的话，必须在工作簿或工作表名称前面加上“#”符号；A2是“表1”的名称，“!A1”表示A1单元格；后面这个A2表示单元格显示“表1”这两个字，让自己知道这是跳转到“表1”的链接。"#"&A2&"!A1"表示跳转到"表1”的A1单元格，必须要具体写到跳转到哪个单元格。如动图5：
图5
▼二、在“表1”到“表12”中一次性建立“返回”超链接。
比如我们想在D2单元格制作一个“返回目录”的超链接，点击就能跳转。按住Shift键，鼠标点击“表1”和“表12”，就会全选中这12张表格，然后在D2单元格输入公式=HYPERLINK("#"&"目录!A1","返回目录")，按回车，完成。公式解析："#"&"目录!A1"——【“跳转到目录工作表的A1单元格”】；"返回目录"——【“单元格显示返回目录这四个字”】。如图6：
图6
做完超链接后，我们可以通过“视图”——“冻结窗口”——“冻结拆分窗格”来冻结行列，完成下拉滚动条也可以很轻松的点到“返回目录”超链接。
▼三、如果想修改一部分工作表的名称，一张一张修改就很麻烦，我们也可以通过复制粘贴VBA代码完成批量修改工作表名称。
① 复制“修改工作表名称代码”，没有代码的小伙伴手动把图片里的代码输入到Excel表格里保存好，方便下次复制粘贴用。如图7：
图7：批量修改工作表名称VBA代码
VBA代码注意：“目录”这两个字是可以改的，这个名字就是你制作超链接目录的那张工作表名称。CELLS(i,2)这个数字2也是可以改的，2表示B列，如果你的新的工作表名称在D列，就改成4。
② 选中“目录”这张工作表，A列是原工作表名称，B列是目录超链接。现在我在D列输入新的工作表名称，必须所有工作表名称都要写上，不改动的也要把原名称复制粘贴上，名称之间不能有空单元格；两列名称不能错位，这样代码才可以平行替换名称。如动图8：
图8：批量修改工作表名称
③ 修改完工作表名称后，原来的目录超链接就失效了，所以需要重新制作下目录超链接，其他表格的“返回目录”超链接不受影响。
因为这个表格用了VBA宏代码，所以保存的时候，会出现弹窗，点击“否”，选择后缀是xlsm的类型，点击保存。
喜欢的朋友点点关注、转发、收藏、点赞，谢谢！

打开工作簿发现工作表数量太多了，都不知道每张表格是什么内容。所以需要建立一张“目录”工作表，放在工作表的第一张，轻松点击“目录”里的每张工作表名称，跳转到相应工作表，同时制作“返回”超链接，回到目录。
▼一、制作目录超链接。
① 工作表太多，有好几百张，一个一个手动输入工作表名称太麻烦，通过复制粘贴简单的VBA代码就可以自动批量提取工作表名称。
如图1：有表1、表2、表3等12张工作表，我们先在“表1”前面插入一张新的工作表，取名“目录”。
图1
② 第二步就是复制“提取工作表名称的VBA代码”，没有代码的小伙伴可以把图片里代码的内容手动输入在Excel表格里保存好，需要的时候打开表格，直接复制粘贴就可以了。图2：
图2:批量提取工作表名称VBA代码
③ 复制代码后，鼠标在“目录”这张表格的名称上点“右键”——“查看代码”，点击就会进入VBA编辑窗口。图3：
图3：VBA编辑窗口
④ 当有很多个工作簿都处于打开状态时，VBA编辑窗口里就会显示所有的工作簿，在“窗口”的左边找到自己需要建“目录”的工作簿，在该工作簿下找到“目录”这个文件，双击它，再在右边的“代码窗口”粘贴VBA代码，点上方“小绿三角”就运行成功了，关掉窗口。图4：
图4
⑤ 这时“目录”工作表的A列就已经有所有工作表的名称了。现在我们就可以用超链接函数HYPERLINK来批量制作目录超链接。
公式模板：=HYPERLINK("网络链接地址或工作簿的地址","单元格显示什么文字")。
注意：链接地址或工作簿地址和显示的文字如果不是直接引用单元格，而是文本内容手动输入，就需要加双引号。链接地址就是要跳转的地址链接，显示的文字就是类似批注，对这个链接的一个备注说明(可以让你注明这个链接是跳转到哪里的，以免忘记他的功能)。
在“目录”工作表的B2单元格输入公式=HYPERLINK("#"&A2&"!A1",A2)，然后下拉公式，目录制作完成。公式解析：跳转到当前工作簿或其他工作簿的话，必须在工作簿或工作表名称前面加上“#”符号；A2是“表1”的名称，“!A1”表示A1单元格；后面这个A2表示单元格显示“表1”这两个字，让自己知道这是跳转到“表1”的链接。"#"&A2&"!A1"表示跳转到"表1”的A1单元格，必须要具体写到跳转到哪个单元格。如动图5：
图5
▼二、在“表1”到“表12”中一次性建立“返回”超链接。
比如我们想在D2单元格制作一个“返回目录”的超链接，点击就能跳转。按住Shift键，鼠标点击“表1”和“表12”，就会全选中这12张表格，然后在D2单元格输入公式=HYPERLINK("#"&"目录!A1","返回目录")，按回车，完成。公式解析："#"&"目录!A1"——【“跳转到目录工作表的A1单元格”】；"返回目录"——【“单元格显示返回目录这四个字”】。如图6：
图6
做完超链接后，我们可以通过“视图”——“冻结窗口”——“冻结拆分窗格”来冻结行列，完成下拉滚动条也可以很轻松的点到“返回目录”超链接。
▼三、如果想修改一部分工作表的名称，一张一张修改就很麻烦，我们也可以通过复制粘贴VBA代码完成批量修改工作表名称。
① 复制“修改工作表名称代码”，没有代码的小伙伴手动把图片里的代码输入到Excel表格里保存好，方便下次复制粘贴用。如图7：
图7：批量修改工作表名称VBA代码
VBA代码注意：“目录”这两个字是可以改的，这个名字就是你制作超链接目录的那张工作表名称。CELLS(i,2)这个数字2也是可以改的，2表示B列，如果你的新的工作表名称在D列，就改成4。
② 选中“目录”这张工作表，A列是原工作表名称，B列是目录超链接。现在我在D列输入新的工作表名称，必须所有工作表名称都要写上，不改动的也要把原名称复制粘贴上，名称之间不能有空单元格；两列名称不能错位，这样代码才可以平行替换名称。如动图8：
图8：批量修改工作表名称
③ 修改完工作表名称后，原来的目录超链接就失效了，所以需要重新制作下目录超链接，其他表格的“返回目录”超链接不受影响。
因为这个表格用了VBA宏代码，所以保存的时候，会出现弹窗，点击“否”，选择后缀是xlsm的类型，点击保存。
喜欢的朋友点点关注、转发、收藏、点赞，谢谢！

	

      工作中，我们有时会需要将多个工作表Sheet的名称提取出来，制作成一个目录，如果一个一个去复制粘贴，效率肯定是很低的，如果Sheet数量很多，会严重影响我们的工作进度，那该如何处理呢？
使用VBA快速处理
方法如下：
Step1:调出【开发工具】选项卡，单击【文件】选项卡-【选项】-【自定义功能区】，在主选项卡中，把【开发工具】前面的“√”选上，然后确定即可
Step2：单击 【开发工具】选项卡，在“代码”选项组中选择“Visual Basic”，弹出【模块代码】编辑框，选择Microsoft Excel 对象，然后单击【插入】选项卡，选择【模块】，然后把写好的宏放在右边的编辑框里，然后把代码编辑框关掉
*VBA代码如下：
Sub 提取工作表名称()
Dim i!
Cells(1, 1).Value = "表名"
For i = 1 To Sheets.Count
Cells(i + 1, 1).Value = Sheets(i).Name
Next i
End Sub
Step3：单击Excel中的【插入】选项卡，单击【形状】按钮，随便选择一个文本框，然后输入文字，单击文本框，鼠标右键，选择【指定宏】选项，选择刚才编辑的宏，然后确定即可，Step4：当我们单击“提取工作表的名称”按钮时，在A列就会看到每个表的名称都提取出来了
你学会了吗？
欢迎关注和转发