vba to replace string from exact match list by searching approximate value

In H2 Cell


=IFERROR(LOOKUP(2,1/SEARCH($A$3:$A$19,G2),$B$3:$B$19),G2)


Drag it down

Dear sir

can i have vba? i want get value replace on same col G:G

How to install your new code

1. Copy the Excel VBA code
2. Select the workbook in which you want to store the Excel VBA code
3. Press Alt+F11 to open the Visual Basic Editor
4. Choose Insert > Module
5. Edit > Paste the macro into the module that appeared
6. Close the VBEditor
7. Save your workbook (Excel 2007+ select a macro-enabled file format, like *.xlsm)

Sub ApproximateMatchReplacement()

Application.ScreenUpdating = False

With Range("H2:H" & Range("G" & Rows.Count).End(xlUp).Row)
    .Formula = "=IFERROR(LOOKUP(2,1/SEARCH($A$3:$A$19,G2),$B$3:$B$19),G2)"
    DoEvents
    .Value = .Value
End With

Application.ScreenUpdating = True

End Sub