VBA批量替换代码

以下是使用VBA批量替换代码的示例：

Sub ReplaceText()

Dim myWorkbook As Workbook Dim myWorksheet As Worksheet Dim myRange As Range

Set myWorkbook = ActiveWorkbook Set myWorksheet = myWorkbook.ActiveSheet Set myRange = myWorksheet.UsedRange

myRange.Replace "old text", "new text", xlPart, xlByRows, False, False, False, False

End Sub

在上面的代码中，将“old text”替换为“new text”，并将其应用于工作簿中的所有单元格。您可以根据需要更改要替换的文本和要应用的工作簿和工作表。您还可以使用其他选项，例如区分大小写、替换整个单元格而不仅仅是部分等。