excel批量重命名工作表名称

由于工作需要工作簿内含有好几百张工作表,

每次给工作表重命名都花费好长时间,

求各位大侠给个能按自动排序重命名的宏,

为了清楚如何运行请每个语句给予中文解释,

如:600张工作表依次命名为"2010001.2010002.......2010599"

Sub test()
Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To ThisWorkbook.Sheets.Count
Sheets(i).Name = 2010000 + i
Sheets(i).Range("B5") = 2010000 + i
Next i
Application.ScreenUpdating = True
End Sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息