加了一个|竖杠缓档亩做识别符temp = Replace([C2], "扰森)", ")|")temp = Replace(temp, "(", "蠢轮|(")temp = Split(temp, "|")For i = 1 To UBound(temp) Step 2 If UBound(VBA.Filter(temp, temp(i))) > 0 Then temp(i) = ""Next[c2] = Join(temp, "")