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、安全退出