代码如下，参见附件
Sub RenameSheet()
Dim sht As Worksheet, shtName As String, str
For Each sht In ActiveWorkbook.Worksheets
shtName = sht.Name
For Each str In Array("【强度】", "【量能】", "【日志记录】")
shtName = Replace(shtName, str, "")
Next str
sht.Name = shtName
Next sht
End Sub
Sub test()
For i = 1 To ThisWorkbook.Worksheets.Count
Sheets(i).Name = Left(Sheets(i).Name, InStr(1, Sheets(i).Name, "【") - 1)
Next
End Sub
这个通过验证，可以实现了。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024