Log in  \/ 
x
or
x
x
Register  \/ 
x

or

unanswered Bulk Find Exact cells contents and Replace

More
4 months 1 week ago #1945 by sesheridan
Bulk Find Exact cells contents and Replace was created by sesheridan
I found the below VBA on this site.    How would I cause it to only find exact cell contents and then replace those contents?
Thanks
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
Next
Application.ScreenUpdating =
True
End
Sub

Please Log in or Create an account to join the conversation.

Moderators: jaychivoExcelfansqiuhongkun