如何用正则表达式进行分列

wenxueshan

ykcbf1100 发表于 2024-2-29 14:32
参与一下。。。

感谢老师的指导，学习了，非常感谢

gwjkkkkk

Option Explicit
Sub TEST1()
    Dim ar, i&, aMatch As Object
   
    ar = [A1].CurrentRegion.Value
    ReDim Preserve ar(1 To UBound(ar), 1)
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "(?=[\u4e00-\u9fa5]).+"
        For i = 1 To UBound(ar)
            Set aMatch = .Execute(ar(i, 0))(0)
            ar(i, 1) = aMatch.Value
            ar(i, 0) = .Replace(ar(i, 0), "")
        Next i
    End With
   
    [C1].Resize(UBound(ar), 2) = ar
    Beep
End Sub

gwjkkkkk

请参考。。。

limonet

关键字：￥

limonet

Sub limonet()
    Dim i%
    With CreateObject("vbscript.regexp")
        .Pattern = "(.*?(?=[一-龥]))(.*)"
        For i = 1 To 10
            Cells(i, "B").Resize(1, 2) = Split(.Replace(Cells(i, "A"), "$1￥$2"), "￥")
        Next i
    End With
End Sub

今铭昔

blackttea1

学习啦，谢谢

wang-way

(.*)(?=\.[^\.])

Windor123

(.+?\d)(?=[^\d\.\-])(.+)\.([^\.]+)$