怎样快速更换工作表的名称？
在一个工作簿中有一些工作表，分别是PAa1,PAa2……PAa26等;在不改变每个工作表内容的前提下，怎样把这些工作表的名称（快速）重新命名为：PAb1,PAb2……PAB26 ?
热心网友给出的方法1是：
Sub rename()
Dim i As Integer
i = 1
For Each sht In ActiveWorkbook.Sheets
sht.Name = "PAB" & i
i = i + 1
Next sht
End Sub
方法2是：
Sub yy()
For Each sh In Worksheets
sh.Name = Left(sh.Name, 2) & "b" & Mid(sh.Name, 4)
Next
End Sub
我不太会EXCEL，不知以上两种方法具体该怎么操作，哪位老大知道的话，能具体给我指点一下吗？小弟拜托了！！作者: pureshadow 时间: 2009-8-27 16:32
按ALT+F11，代码贴进去
工具》宏》宏》执行作者: 518299 时间: 2009-8-27 17:33 2#pureshadow
多谢版主的指点，您辛苦了！！
