Excel工作表批量重命名，以1，2，3，4，5，6直到100，怎么操作？ 高手指教下啦，thank you~

Question

如题所述

Answer 1

是把SHEET1……sheet100 改为1……100么

可以使用宏来实现

Sub 改工作表名()
Dim k As Integer
For k = 1 To Sheets.Count
Sheets(k).Name = k
Next
End Sub

或者把以上代码 放到过程当中

Answer 2

在前面写个1 ，2 后面直接下拉就行了

Answer 3

宏：
Sub re100()
n = 1
For Each ws In Worksheets
ws.Name = n
n = n + 1
if n=101 then goto fend
Next ws
fend:
End Sub本回答被提问者采纳