Excel VBA正则表达式优化：仅删除括号内含数字的内容

Your issue stems from two key flaws in the original regex pattern:

1. The greedy .* wildcard matches everything from the first opening parenthesis to the last closing parenthesis that contains a number—this is why your problem scenario truncates the string prematurely.
2. The pattern doesn't restrict itself to non-parenthesis characters inside the target brackets, letting it cross boundaries between separate parenthesis pairs.

Here's the revised function with a corrected regex pattern:

Function RemoveTags(ByVal Value As String) As String
    Dim rx As New RegExp
    With rx
        .Global = True
        .Pattern = "\(([^()]*\d[^()]*)\)"
    End With
    RemoveTags = WorksheetFunction.Trim(rx.Replace(Value, ""))
End Function

Let’s break down the new pattern: #

• \(: Matches the opening parenthesis literally.
• [^()]*: Matches any character except opening or closing parentheses, zero or more times. This prevents the regex from jumping between unrelated parenthesis pairs.
• \d: Ensures there’s at least one digit inside the parentheses—this is what targets only the numeric-tag parentheses we want to remove.
• [^()]*: Again matches non-parenthesis characters after the digit, covering cases where digits sit in the middle of parenthesis content.
• \): Matches the closing parenthesis literally.

Testing with your examples: #

1. Valid scenario input: Put a stop to Rugby's foul school leader (5,2,3,4)
   • Output: Put a stop to Rugby's foul school leader (still works as expected)
2. Problem scenario input: Put a (stop to Rugby's) foul school leader (5,2,3,4)
   • Output: Put a (stop to Rugby's) foul school leader (matches your expected result)

This pattern ignores any parenthesis pairs without digits, while reliably removing only the ones that contain numbers—no accidental deletion of unrelated content between parentheses.

内容的提问来源于stack exchange，提问作者Lynn