VBA 去除选中内容中的（）和其中的内容 并将删除后的内容添加到下一列

Sub RemoveParenthesesContent()
    Dim rng As Range
    Dim cell As Range
    Dim value As String
    Dim result As String
 

    Set rng = Selection
 
    For Each cell In rng
        value = cell.Value
 
        With CreateObject("VBScript.RegExp")
            .Global = True
            .IgnoreCase = True
            .Pattern = "\(.*?\)"
            result = .Replace(value, "")
        End With
        
        If cell.Offset(0, 1).Value <> "" Then cell.Offset(0, 1).ClearContents
        cell.Offset(0, 1).Value = result
    Next cell
End Sub