求助使用正则表达式进行拆分

dycwuxing

各位大佬:
      我想知道如何使用正则表达式来拆分字符串到不同的单元格内
比如一个单元格内的值"HLJ/GX/GS/LN",将它拆分到不同的单元格内,分别为"HLJ"GX"GS"LN"
非常感谢!!!

拆分.xlsx.zip (7.1 KB, 下载次数: 15)

2019-11-14 18:31 上传

点击文件名下载附件

dycwuxing

自问自答一下吧:已经根据别人的代码修改了下,可以实现效果,只是对这种组合不太理解: .Pattern = "[^g×\-\/]+"

Sub aa()
    ReDim crr(1 To 1000, 1 To 1)
    Set reg = CreateObject("Vbscript.Regexp")
    With reg
        .Global = True
        .IgnoreCase = False
        .Pattern = "[^g×\-\/]+"
    End With

    Set mc = reg.Execute(Range("A2"))
    k = 1
    For Each x In mc
        k = k + 1
        crr(k, 1) = x
    Next
    Cells(1, 2).Resize(UBound(crr), UBound(crr, 2)) = crr
End Sub

山菊花

[^]是否定的字符集，本例中，使用[^/]就行，其它是多余的字符。
.Pattern = "[A-Z]+"  也可得到相同的结果。

dycwuxing

山菊花 发表于 2019-11-14 19:37
[^]是否定的字符集，本例中，使用[^/]就行，其它是多余的字符。
.Pattern = "[A-Z]+"  也可得到相同的结 ...

多谢您的解答.
不过我发现[A-Z]+是可以得到同样的结果
不过在使用[^/]的时候,会把字符串按照单个字符来拆分,比如ALL会拆分成"A"L"L"这三个

山菊花

错了，应该是[^/]+

killq

真累，明明split就可以了，非得绕路多加过程。或者如果vbscript正则支持split也行啊
真是不写码不知码珍贵

EXCELLMY

killq 发表于 2019-11-15 12:38
真累，明明split就可以了，非得绕路多加过程。或者如果vbscript正则支持split也行啊
真是不写码不知码珍贵

楼主应该是想学习强大的正则处理字符串

lsdongjh

1. [^/]+(?=/|$)

复制代码

dycwuxing

killq 发表于 2019-11-15 12:38
真累，明明split就可以了，非得绕路多加过程。或者如果vbscript正则支持split也行啊
真是不写码不知码珍贵

split对于我这一个例子是可以解决,但是如果是不那么规律的拆分呢?直接达到目的ok,但是更想知道适用性更好的代码.也没问题!