excel怎样批量重命名工作表

我一个工作簿里有91个工作表。现在我要将这91个工作表按目前的顺序重命名为1，2，3……，请问VBA代码是什么

这样就可以：

SUB XXX()
DIM I
FOR I=1 TO SHEETS.COUNT
SHEETS(I).NAME=I
NEXT I
END SUB

sub test() dim i as byte for i = 1 to thisworkbook.sheets.count sheets(i).name = 2 & "ôâ" & i & "èõ" next i end sub 把2改为你要的月份就可以了。也可以这样 sub test() dim i, m as byte m = inputbox("请输入月份", "hello") for i = 1 to thisworkbook.sheets.count sheets(i).name = m & "月" & i & "日" next i end sub 每次会要求你输入一月份。