1、首先点击打开excel表格。
2、打开软件后，进入到表格窗口。
3、一段VBA搞定。【Alt+F11】打开VBA窗口
4、【插入】——【模块】
5、将下面这段代码粘贴进去，按F5运行就可以了。Public Sub果果( )For i=1 To Sheets.CountSheets(i).Name=Sheets(i).Cells(1,2)NextEnd 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 NextFor i=1 To Sheets.CountSheets(i).Nam髫潋啜缅e=Right(Sheets(i).Cells(1,2),Len(Sheets(i).Cells(1,2))-2)NextEnd Sub
8、安全退出