正则符号内拆分列

jd23qq

"标题:null,"标题":155176,"标题":155644,"标题":15594,"标题":null,"标题":null,"标题":null,"标题":null,"标题":"17262","标题":null,"标题":[{"标题":"标题","标题":"172619","标题":null,"标题":null,"标题":715.,"标题":null,"标题":"6","标题":"6","标题":null,"标题":null,"标题":null,"标题":null}],"标题":15527436,"标题"9657451245","标题":"772622727","标题":"49657451245","标题":"772622671","标题":"49657451245","标题":"49645777261","标题":"49657451245","标题":"49657451245","标题":"6","标题":"49657451245","标题":"49657451245","标题":"49657451245","标题":"49657451245","标题":,"标题":,"标题":null,"标题":null,"标题":[],"标题":[],"标题":null,"标题":null,"标题":null,"标题":null,"标题":null,"标题":null,"标题":null,"标题":null,"标题":"6","标题":"","标题":"49657451245","标题":null,"标题":null,"标题":null,"标题":null,"标题":null,"标题":null,"标题":null,"标题":null,"标题":null,"标题":null,"标题":null,"标题":null,"标题":false,"标题":false,"标题":155472}
以下很多行	情况1	情况2	情况3	情况4
把:后的第一个符号里的内容拆分成列	:null,	:"6",	:null}	:[],"

结果

标题	标题	标题	标题	标题	标题	标题	标题	标题
null	155176	155644	15594	null	null	null	null	17262

duquancai

标题"?:?"?(\w+)

duquancai

自相矛盾！！！

jd23qq

标题可以不要，只要内容拆分成列就可以

lsdongjh

不知道哪来的 不完事的 JSON串，楼主神经大条了，简单的JSON解析不用，竟然想用正则，简单的事情复杂化

jiangxiaoyun

split一下貌似就可以了啊

jd23qq

Sub zz()
Dim ar, n&, m&, b()
ar = Range("a1:a" & [a1048576].End(3).Row).Value
For i = 1 To UBound(ar)
    ar(i, 1) = Split(ar(i, 1), ":")
    m = UBound(ar(i, 1)): n = IIf(n > m, n, m)
Next
ReDim b(1 To UBound(ar), 1 To n + 1)
For i = 1 To UBound(ar)
    For j = 0 To UBound(ar(i, 1))
        b(i, j + 1) = ar(i, 1)(j)
    Next
Next
[b1].Resize(i - 1, n + 1) = b
End Sub
大神帮忙改成正则把:后的第一个符号里的内容拆分成列

jd23qq

lsdongjh 发表于 2018-9-30 08:51
不知道哪来的 不完事的 JSON串，楼主神经大条了，简单的JSON解析不用，竟然想用正则，简单的事情复杂化

是josn，谢谢

lsdongjh

看看这个帖子
http://club.excelhome.net/thread-1337720-1-1.html

jd23qq

问题没解决还有大神吗