Find and Replace Multiple Values in Excel - ALL AT ONCE | How to replace multiple data in Excel VBA

preview_player
Показать описание
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
Рекомендации по теме
Комментарии
Автор

I want to replace 10 columns at once. How to do that

shaikfaizurrasool
Автор

kripya ek Video Banaiye JISME EK HI TYPE KE DO FILE HAI OR DONO FILE KA DATA MATCH NHI KAR RAHA HAI LEKIN DONO ME EK HI DATA HAI TO KAISE MATCH KARAYE

Abhishekkumar-gwwr
visit shbcf.ru