如何把（）和（）内的内容一同替换掉

青春の火焰

a1的值是张三（男），要求是替换成张三，但是我写的代码不行，不知问题出在哪里，请大大帮我看看，谢谢了
Sub tt()
If InStr(1, Range("a1").Value, "()") Or InStr(1, Range("a1").Value, "男") Then
Range("a1") = Replace(Range("a1"), "男", "")
Else
Range("a1") = Replace(Range("a1"), "(*)", "")
End If
End Sub

小花鹿

直接找前括号的位置，然后LEFT                                                                                             

月关

instr函数用法错误。
instr(字符串，要查找的字符)

shi353

replace不支援萬用字元*替代
建議修改成  
Sub tt1()
    [A1] = Replace([A1], "（男）", "")
    [A1] = Replace([A1], "（）", "")
End Sub

shi353

或把括號(及內文字)全刪除!
Sub test2()
    Dim RE As Object
    Set RE = CreateObject("VBScript.RegExp")
    RE.IgnoreCase = True
    RE.Global = True
    '-----------------------
    If InStr([a1], "（") Then
        RE.Pattern = "（.*）"
    ElseIf InStr([a1], "(") Then
        RE.Pattern = "\(.*\)"   
    End If
    '-----------------------
    [a1] = RE.Replace([a1], "")
End Sub

liulang0808

Sub test2()
    Dim RE As Object
    Set RE = CreateObject("VBScript.RegExp")
    RE.IgnoreCase = True
    RE.Global = True
    RE.Pattern = "[\（\(][男女][\)\）]"
    [a1] = RE.Replace([a1], "")
End Sub

powerremain

.Pattern = "\(.*\)"    是不是要区分半角全角 .Pattern = "[\（\(].*[\)\）]"

大灰狼1976

如果规则这么简单的话，不需要用到正则。

1. Sub test()
   
2. [a1].Replace "（*）", ""
   
3. End Sub

复制代码

ggmmlol

Sub tt()
Range("A1").Replace "(*)", "", xlPart, , , False
End Sub

liulang0808

powerremain 发表于 2019-9-16 10:25
.Pattern = "\(.*\)"    是不是要区分半角全角 .Pattern = "[\（\(].*[\)\）]"

不是仅仅针对性别吗？