如何在 Excel 中一次性查找并替换多个值？

  使用 VBA 代码一次性查找并替换多个值

如果您厌倦了反复查找和替换值的操作，以下 VBA 代码可以帮助您一次性将多个值替换为您所需的文本。

1. 请创建您想使用的条件，其中包含原始值和新值。参见截图：

2. 然后按住“ALT” + “F11”键以打开“Microsoft Visual Basic for Applications 窗口”。

3. 单击“插入” > “模块”，并将以下代码粘贴到模块窗口中。

VBA 代码：一次性查找并替换多个值

Sub MultiFindNReplace()
'Updateby Extendoffice
Dim Rng As Range
Dim InputRng As Range, ReplaceRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Original Range ", xTitleId, InputRng.Address, Type:=8)
Set ReplaceRng = Application.InputBox("Replace Range :", xTitleId, Type:=8)
Application.ScreenUpdating = False
For Each Rng In ReplaceRng.Columns(1).Cells
    InputRng.Replace what:=Rng.Value, replacement:=Rng.Offset(0, 1).Value
Next
Application.ScreenUpdating = True
End Sub

4. 然后按“F5”键运行此代码，在弹出的提示框中，请指定要替换为新值的数据区域。

5. 单击“确定”，另一个提示框会显示提醒您选择在步骤 1 中创建的条件。参见截图：

6. 然后单击“确定”，所有指定的值都已根据要求被替换为新的值。

相关文章：

如何在文本框中查找并替换特定文本？

如何在 Excel 中的图表标题中查找并替换文本？

如何在 Excel 的批注中查找并替换文本？

如何在 Excel 中一次性更改多个超链接路径？