求助：Eccel工作表根据指定位置的值命名

xwbforever

原图：




需要效果：




一键执行
所有工作表根据本工作表的A2出命名，去除：科目范围:[    ]。

晚点上传Excel，谢谢各位！

xwbforever

纯新手，我简化了一下需求，自己搞定了。
代码如下：
......................................
Sub 工作表名改动()
For i = 1 To 2
Sheets(i).Name = Sheets(i).Cells(1, 1)
Next
End Sub
..................................................
但还得请教一个问题：如果我不知道有多少个工作表，比如实际有5个工作表，但我输入：For i = 1 To 1000，如何解决提示下标越界的问题。
谢谢

xwbforever

但是新问题来了,求各位帮助。

sy394589008

xwbforever 发表于 2021-2-23 23:47
纯新手，我简化了一下需求，自己搞定了。
代码如下：
......................................

sheets.count

简七

xwbforever 发表于 2021-2-24 08:47
但是新问题来了,求各位帮助。

正则 或者 left  right instr 组合