如何在Excel中查找和替换工作表标签名称？

Sub Find_replace_sheet_name() Update by Extendoffice 2018/5/24 Dim xNum As Long Dim xRepName As String Dim xNewName As String Dim xSheetName As String Dim xSheet As Worksheet xRepName = Application.InputBox("Please type in the word you will replace：", "Kutools for Excel", , , , , , 2) xNewName = Application.InputBox("Please type in the word you will replace with：", "Kutools for Excel", , , , , , 2) If xRepName = "false" Or xNewName = "false" Then Exit Sub On Error GoTo ExitLab For Each xSheet In ActiveWorkbook.Sheets xSheetName = xSheet.Name xNum = InStr(1, xSheetName, xRepName) If xNum > 0 Then xSheet.Name = Replace(xSheetName, xRepName, xNewName) End If ExitLab: Next End Sub

最佳办公生产力工具

在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。 每天将您的工作效率提高50％，并减少数百次鼠标单击！