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

2024-11-30 06:19:53

推荐回答（3个）

回答1：

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

可以使用宏来实现

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

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

回答2：

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

回答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

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