取括号中的内容

xing_chen

老师，有表，希望提取列中括号的内容，有代码但提取不了。敬请老师赐教。谢谢！

陆离Lowry

1. =SUBSTITUTE(MID(C2,FIND("（",C2)+1,9),"）",)

复制代码

xing_chen

陆离Lowry 发表于 2023-1-7 22:15

谢谢老师！可以赐教代码吗?因为此表中数据运行都是代码，突用函数感觉不协调。

清风客98

Sub 宏1()
    With CreateObject("vbscript.regexp")
        .Pattern = "\(.*\)"
        .Global = True
        For i = 2 To Range("c65536").End(xlUp).Row
            x = Replace(Split(Cells(i, 3), "（")(1), "）", "")
            .Execute (x)
        Next
    End With
End Sub

清风客98

Replace(Split([c2], "（")(1), "）", "")
我喜欢用split感觉省心，不好就是当你没有"（"容易err

陆离Lowry

xing_chen 发表于 2023-1-7 22:20
谢谢老师！可以赐教代码吗?因为此表中数据运行都是代码，突用函数感觉不协调。

没注意用代码，直接split方便点

tiger1976

Sub lll()

    Dim rex As Object
    Dim m, n
   
    Set rex = CreateObject("vbscript.regexp")
    With rex
        .Global = True
        .IgnoreCase = True
        .Pattern = "[（].+"
         For i = 2 To Range("c65536").End(xlUp).Row
            m = .Execute(Cells(i, 3))(0)
            n = Application.WorksheetFunction.Substitute(m, "（", "")
            Cells(i, 4) = Application.WorksheetFunction.Substitute(n, "）", "")
         Next
         
    End With


End Sub

Hontyu

..........

aman1516

    .Pattern = "\（.*\）"       '这里的括弧要与字符串的括弧一致，注意中英文、全角半角的区分！

    改过来就行了

你地铁图

Sub 宏1()
    Dim r As Range
    For Each r In Range(Cells(1, 3), Cells([c1].End(xlDown).Row, 4))
        If InStr(r.Value, "（") <> 0 Or InStr(r.Value, "（") <> 0 Then
            r.Offset(, 1).Value = Replace(r.Value, "（", "")
            r.Offset(, 1).Value = Replace(r.Offset(, 1).Value, "）", "")
        End If
    Next
    Set r = Nothing
End Sub