这是更改工作表标签的代码:
Sub 工作表改名()
Application.DisplayAlerts = False
Dim arr()
ReDim arr(1 To Sheets.Count)
For i = 1 To Sheets.Count
arr(i) = Sheets(i).Name
Next i
Sheets("毕业").Name = "待处理"
' Sheets("毕业").Delete
For i = Sheets.Count - 1 To 1 Step -1
m = Sheets(i).Name
Sheets(i).Name = arr(1 + i)
Next i
Sheets("待处理").Name = "一年级"
Sheets("一年级").Move Before:=Sheets(1)
Application.DisplayAlerts = True
End Sub