参考代码
Dim str As String = "1234【1.顶替地震天】56789【1.顶替地震天】 "Dim reg As New System.Text.RegularExpressions.Regex("【+.*?】+")str = reg.Replace(str, "")msgbox(str)