Thread: macro Delete string text between brackets in several cells

Try this

=SUBSTITUTE(SUBSTITUTE(A1,")",""),"(","")

provided your text is in cell A1

You can try the find/replace option in excel, where find what is (*) and keep the replace with as empty. And if want to do it with vba, record a macro while replacing.

Hi raparigo74
Maybe a UDF

Function Match_Replace(Rng As Range)
    Dim RegEx As Object
    Match_Replace = Rng.Text
    Set RegEx = CreateObject("vbscript.regexp")
        With RegEx
            .Global = True
             .Pattern = "(\([\w\s]+\))"
          Match_Replace = RegEx.Replace(Match_Replace, String("$1", Chr(32)))
        End With
      Set RegEx = Nothing
End Function

hi raparigo74,

UDF is user defined function.. you can make functions like the built-in excel worksheet functions.

http://www.techbookreport.com/tutorials/excel_vba1.html

so place the code in a module you can then use the "Match_Replace" UDF

eg

a1 = word1 (123) word2 (456)
 B1= Match_Replace(A1)

the result in B1 will be "word1 word2 "

It is recommended to use "Function"s instead of "Sub"s in both worksheets and VBA

Hello Pike,

You could reduce the Pattern to this:

.Pattern = "(\(.+\))"

This will catch all characters rather than space, 0-9,A-Z,a-z, and underscore. If there is a chance that the parentheses could be empty then use this pattern:

.Pattern = "(\(.*\))"

Hi Leith,
thanks for the pointer