可以用VBA来搞。代码在下面：
Sub RenameSheets()
Dim i As Long
Dim new_name As String
new_name = InputBox("Enter new name for sheets:")
For i = 1 To ActiveWorkbook.Sheets.Count
ActiveWorkbook.Sheets(i).Name = new_name
Next i
End Sub
请打开你想更改名称的工作簿，并按下Alt + F11，打开Visual Basic编辑器。在编辑器中，选择Insert -> Module，然后将上面代码复制粘贴到模中F11。或者选择Run -> Run Sub/UserForm，以运行它。
