Find and Replace Multiple Values in Excel - ALL AT ONCE!

Описание: Tired of replacing one value at a time in Microsoft Excel? Well, here is the fix for that!

You will need this little code:

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
Next
Application.ScreenUpdating = True
End Sub

———•———
How much was it worth? :) Donation welcome!
PayPal
https://www.paypal.me/kennethkanyi

Cashapp
https://cash.app/$summitline