Excel VBA:如何从单元格中删除子字符串(具有相同的开始和结束符号)？

Sub RemoveSubstring()
    Dim cell As Range
    Dim str As String
    Dim startSymbol As String
    Dim endSymbol As String
    Dim startPos As Long
    Dim endPos As Long
    
    startSymbol = "(" ' 开始符号
    endSymbol = ")" ' 结束符号
    
    For Each cell In Selection
        str = cell.Value
        startPos = InStr(1, str, startSymbol)
        endPos = InStr(1, str, endSymbol)
        
        Do While startPos > 0 And endPos > 0 And endPos > startPos
            str = Left(str, startPos - 1) & Mid(str, endPos + 1)
            startPos = InStr(1, str, startSymbol)
            endPos = InStr(1, str, endSymbol)
        Loop
        
        cell.Value = str
    Next cell
End Sub