Excel工作表名称问题

来源：百度知道 编辑：UC知道 时间：2024/09/22 03:45:41
例如:一个工作薄里有12个工作表,按月排列.名称依次为:04.1；04.2；04.3......04.12。到05年的时候想把名称改成05.1；05.2......05.12。请教一下能不能实现类似替换一样的功能啊？我试过替换，但是替换不了工作表的名称。哪位高手指点一下，谢谢。

按下ALT+F11,菜单:插入-模块,复制下面代码.
按下F5运行.
以下是将04换成05,你相应改变公式中的数字就可以任意操作.

Sub aaa()
For x = 1 To Sheets.Count
Sheets(x).Name = WorksheetFunction.Substitute(Sheets(x).Name, "04", "05")
Next
End Sub

Sub xx()
For i = 1 To 12
Sheets(i).Name = "05." & i
Next
End Sub

真的很神奇,学会了.

赞一个