vba 批量替换工作薄字符串

在VBA中批量替换工作薄字符串可以通过以下步骤实现：

1. 打开目标工作薄，可以使用Open方法打开或者直接使用Workbooks集合中的目标工作薄。

2. 遍历目标工作薄的所有工作表，可以使用For Each循环遍历Worksheets集合。

3. 在每个工作表中，使用Range对象的Replace方法来替换指定的字符串。

4. 确定要替换的字符串以及替换后的字符串。可以使用InputBox获取用户输入的字符串，或者在VBA代码中提前指定。

以下是一个示例代码：

Sub 批量替换工作薄字符串()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim findStr As String
    Dim replaceStr As String

    ' 打开目标工作薄
    Set wb = Workbooks.Open("目标工作薄路径")

    ' 获取要替换的字符串
    findStr = InputBox("请输入要替换的字符串：")

    ' 获取替换后的字符串
    replaceStr = InputBox("请输入替换后的字符串：")

    ' 遍历所有工作表
    For Each ws In wb.Worksheets
        ' 替换工作表中的字符串
        ws.Cells.Replace What:=findStr, Replacement:=replaceStr, LookAt:=xlPart, _
            MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Next ws

    ' 关闭保存工作薄
    wb.Close SaveChanges:=True
End Sub

运行上述代码后，程序会先弹出两个输入框分别让您输入要替换的字符串和替换后的字符串，然后会逐个替换目标工作薄中的每个工作表中的字符串。最后，工作薄会自动关闭并保存修改。请确保目标工作薄的文件路径和名称正确填写。