I have an Excel spreadsheet that contains a macro.
Bulk Find Replace.xlsm
Column A contains a list of phrases.
Column F contains a list of values to FIND.
Column G contains a list of values to REPLACE.
What I want to achieve using VBA is a find/replace on WHOLE WORDS within column A by FINDING the value in column F and REPLACING with the value in column G.
Using VBA, I want to append " " to the beginning and ending of each phrase in column A.
For example, the phrase 'ediscovery institute havasu' would be seen as " "&ediscovery institute havasu&" ".
Then, all the words in column F would also have " " appended to the beginning and end.
This way, when the find/replace is performed, it will look for WHOLE WORDS instead of strings and replace those whole words found with the value in column G.
Lastly, I'd like to then trim the results in column A using VBA then end macro.
I know how to do this with a formula but I don't know how to do this with VBA.
This is the code in the current workbook:
Bulk Find Replace.xlsm
Column A contains a list of phrases.
Column F contains a list of values to FIND.
Column G contains a list of values to REPLACE.
What I want to achieve using VBA is a find/replace on WHOLE WORDS within column A by FINDING the value in column F and REPLACING with the value in column G.
Using VBA, I want to append " " to the beginning and ending of each phrase in column A.
For example, the phrase 'ediscovery institute havasu' would be seen as " "&ediscovery institute havasu&" ".
Then, all the words in column F would also have " " appended to the beginning and end.
This way, when the find/replace is performed, it will look for WHOLE WORDS instead of strings and replace those whole words found with the value in column G.
Lastly, I'd like to then trim the results in column A using VBA then end macro.
I know how to do this with a formula but I don't know how to do this with VBA.
This is the code in the current workbook:
Code:
Sub FindReplace()
Dim Frange As Range
Dim Fr As Range
Set Frange = Range("F1", Range("F65536").End(xlUp))
For Each Fr In Frange
Columns("A:A").Replace What:=Fr, Replacement:=Fr.Offset(0, 1), LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Next Fr
End Sub