用VBA 提取一列单元格括号 （）前后及里面的内容

xiangye30520

求助大家，如图及附件，A列有包含（）的数据，想用VBA将（）前后及里面的内容提取出来，写入C D E 列，感谢。

hongshan2019

Ctrl+E就可以解决了

hqswww

挺简单的嘛,这规律

无关岁月

test.7z (14.87 KB, 下载次数: 11)

2024-11-18 08:44 上传

点击文件名下载附件

loirol

=TEXTBEFORE(A1,"(")
=TEXTAFTER(TEXTBEFORE(A1,")"),"(")
=TEXTAFTER(A1,")")

loirol

=REGEXEXTRACT(A1,".+(?=\()")
=REGEXEXTRACT(A1,"(?<=\().+(?=\))")
=REGEXEXTRACT(A1,"(?<=\)).+")

quqiyuan

参与一下。。。。

quqiyuan

代码如下。。。
Sub test()
    Dim wb As Workbook, sht As Worksheet
    Set wb = ThisWorkbook
    Set sht = wb.Sheets("sheet1")
    arr = sht.[a1].CurrentRegion
    ReDim brr(1 To UBound(arr), 1 To 3)
    For i = 1 To UBound(arr)
        s = Split(arr(i, 1), "(")
        brr(i, 1) = s(0)
        brr(i, 2) = Split(s(1), ")")(0)
        brr(i, 3) = Split(s(1), ")")(1)
    Next
    sht.[c1].Resize(UBound(arr), 3) = brr
    Beep
End Sub

xiangye30520

无关岁月 发表于 2024-11-18 08:45

谢谢您的答复，问题得到解决，感谢。

xlj310

直接上图~