Multiple Find Replace

[GB]

Hi,
I have a large data set in one worksheet (Sheet1) of my workbook. I want to find all cells that begin with, end with, cells with exact match, or contain, then delete these from the worksheet. See example...

abc*
*now
dog mat
*ouch*

Does anyone have some vba code I can reuse to make this happen?

Thanks
GB

 

[Smallman]

Hi GB

Give the following a try. Should get rid of all of your data.

Sub FindRepMulti() 'Excel VBA for replace with wildcard.
    Dim ar As Variant
    Dim i As Integer
    ar = [{"abc*", "*now", "dog mat", "*ouch*"}]
 
    For i = 1 To UBound(ar)
        Cells.Replace ar(i), ""
    Next i
   
End Sub

Take care

Smallman

 

[GB]

Hi Smallman,
it works perfectly. Appreciate your help.
Thanks
GB

 

[Smallman]

No worries GB

Pleased you got it working first time round.

Take care

Smallman