批量替换excel工作表表名中的文字

在Excel中批量替换工作表表名中的文字，可以通过以下几种方法实现：

### 方法一：使用VBA宏

1. **打开VBA编辑器**：按 `Alt + F11` 打开VBA编辑器。
2. **插入新模块**：在VBA编辑器中，点击 `插入` -> `模块`。
3. **编写宏代码**：在模块中输入以下代码：

Sub BatchRenameWorksheets()
    Dim ws As Worksheet
    Dim oldText As String
    Dim newText As String
    
    oldText = InputBox("请输入要替换的文字：")
    newText = InputBox("请输入新的文字：")
    
    For Each ws In ThisWorkbook.Worksheets
        ws.Name = Replace(ws.Name, oldText, newText)
    Next ws
    
    MsgBox "工作表名称替换完成！"
End Sub

4. **运行宏**：关闭VBA编辑器，回到Excel，按 `Alt + F8` 打开宏对话框，选择 `BatchRenameWorksheets` 宏并运行。

### 方法二：使用Excel公式

如果只是部分替换，可以使用Excel公式结合工作表名称的字符长度限制：

1. **创建一个新的工作表**，例如命名为 `Rename`。
2. **在新工作表中**，在A列列出所有工作表的名称。
3. **在B列**输入新的名称，使用 `SUBSTITUTE` 函数进行替换。例如，在B1单元格输入：

=SUBSTITUTE(A1, "旧文字", "新文字")

4. **将B列的公式填充到所有需要替换的名称**。
5. **使用VBA宏**将新的名称应用到工作表名称中：

Sub RenameWorksheetsUsingFormula()
    Dim ws As Worksheet
    Dim renameSheet As Worksheet
    Dim i As Integer
    
    Set renameSheet = ThisWorkbook.Sheets("Rename")
    
    For i = 1 To renameSheet.Cells(renameSheet.Rows.Count, 1).End(xlUp).Row
        On Error Resume Next
        ThisWorkbook.Sheets(renameSheet.Cells(i, 1).Value).Name = renameSheet.Cells(i, 2).Value
        If Err.Number <> 0 Then
            MsgBox "无法重命名工作表: " & renameSheet.Cells(i, 1).Value
            Err.Clear
        End If
    Next i
    
    MsgBox "工作表名称替换完成！"
End Sub

### 方法三：使用第三方工具

市面上有许多第三方工具可以帮助批量处理Excel工作表名称的替换，例如：

- **Kutools for Excel**：提供丰富的Excel工具，其中包含工作表名称批量重命名功能。
- **Excel易用宝**：提供多种Excel实用工具，包括批量重命名工作表名称。

通过以上方法，你可以根据具体需求选择合适的方式批量替换Excel工作表表名中的文字。