(332) 331-8677

Find and Replace Multiple Values in Excel

Open Excel - Options - Customize Ribbion - Popular Commands - Main Tabs - Developer - Ок.

Open the file and select the project in the left column. Typically, this is Sheet1(file name).

Paste the code below and press F5 or the green arrow (Play).

Sub MultiFindNReplace()
'Update 20140722
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, Lookat:=xlWhole
Application.ScreenUpdating = True
End Sub

Select the column with the values to be replaced.

Select columns with values to replace. On the left are the old values and on the right are the new values.