如何批量修改Excel每个工作表名称，名称为每个工作表相同单元格中的部分文字（每张表的文字内容不同）

Sub 提取A2命名sheet()
Dim sh As Worksheet
On Error Resume Next
For Each sh In Worksheets
If sh.Visible = -1 Then    '遍历可见sheet
a = sh.Cells(2, "A")
s = Split(a, "]")          '按“]”分割
sh.Name = s(1)             '提取第二组数据
End If
Next sh
End Sub

1、代码功能：提取A2单元格“]”后的内容，命名给当前sheet

2、代码使用方法：按alt+f11，弹出代码窗口。

3、自定义部分：

①修改分割符：代码第7行

②修改提取范围：代码第8行（注：S(0)，从0开始是第一组）

反过来操作是简单的，没有按你这样想过和做过，估计是要VBA操作吧……
但是给你一个建议：
你这样的这个表名称很好的呀，若是按你的操作还是解决不了表格的选择和查找哦！不如新建一个工作表，把所有表格的A2单元格编号后面的文字提取出来变成目录表，然后每一个做一个链接，今后只要点一下目录表中的名称就自动指向对应的工作表了，很方便哦……

这个需要写代码来做了，循环语句遍历所有的工作表，提取a2单元格"]"后面的文字，将工作表重新命名。手工完成是很麻烦的！
你可以上传表格过来吗？