Excel自动替换VBScript

一、创建包含原始值和新值的Excel文件

如图实例：

二、打开VBScript代码界面

按住 ALT + F11 键打开 Microsoft Visual Basic for Applications窗口。

（右键工作表--查看代码）

 

三、插入VBScript模块

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

Sub MultiFindNReplace()

Dim Rng As Range

Dim InputRng As Range, ReplaceRng As Range

xTitleId = "Replace tool for Excel"

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

四、运行代码

按 F5 键来运行此代码，在弹出的提示框中，请指定要用新值替换值的数据范围。

点击 OK，并显示另一个提示框以提醒您选择在步骤1中创建的条件。 看截图：

点击 **OK**，所有具体的值已被您立即需要的新值所取代。