excel如何将工作表名改为固定单元格的值

1、首先点击打开excel表格。

2、打开软件后，进入到表格窗口。

3、一段VBA搞定。【Alt+F11】打开VBA窗口

4、【插入】——【模块】

5、将下面这段代码粘贴进去，按F5运行就可以了。 Public Sub果果( ) For i=1 To Sheets.Count Sheets(i).Name=Sheets(i).Cells(1,2) Next End Sub

6、在工作表里，这类取单元格一部分字符的问题，一般可以使用Left、Right、Mid、Len等函数嵌套来实现。VBA里的解决方法大同小异，代码如下： Sheets(i).Name=Right(Sheets(i).Cells(1,2),Len(Sheets(i).Cells(1,2))-2)

7、最终完整代码： Public Sub果果() On Error Resume Next For i=1 To Sheets.Count Sheets(i).Name=Right(Sheets(i).Cells(1,2),Len(Sheets(i).Cells(1,2))-2) Next End Sub

8、安全退出