遇到“，”号分别把字符取出来

a6681316

我现在A列有以下内容

XX,123,456,789


上面的字符个数不确定，能用VBA实现。遇到“,”就隔开字符码
比如上面的就让他 B列显示XX C列123 D列456，E列789~
求大神帮忙

李兴德

说明要求，模拟结果，上传附件

jy03342543

Sub test()
Dim regx As Object
Dim Rng As Range
Dim mat As Object
Dim m As Object
Dim N As Integer
Set regx = CreateObject("vbscript.regexp")
With regx
    .Global = True
    .Pattern = "[a-zA-Z0-9]+"
    For Each Rng In [a1]
    Set mat = .Execute(Rng)
    For Each m In mat
        N = N + 1
        Cells(Rng.Row, N + 1) = m
    Next
        N = 0
    Next
End With
End Sub

zhjlgaojuan

正则太高端了,按楼主的要求用split拆分足矣

a6681316

jy03342543 发表于 2018-9-11 08:49
Sub test()
Dim regx As Object
Dim Rng As Range

这个实际运行了下，只是在B列去除了，号

ykqrs

Sub qq()
Dim arr, s$()
s = Split([a1].Value, ",")
[b1].Resize(1, UBound(s) + 1) = s
End Sub

hopeson2010

a6681316 发表于 2018-9-11 09:01
这个实际运行了下，只是在B列去除了，号

上传文件吧,不想猜

Kaohsing

Sub main()
   
    Dim x As Object, i%
    Set x = CreateObject("scriptcontrol")
    x.Language = "jscript"
    x.AddObject "g", Range("b1"):    x.Addcode "var r=1;"
    For i = 1 To 11
      x.eval "a='" & Cells(i, 1) & "'.split(',');for(j=0;j<a.length;j++){g(r,j+1)=a[j];}r++;"
   Next
End Sub

a6681316

附件传上来了

Kaohsing

附件:


Book1.rar (7.39 KB, 下载次数: 6)

2018-9-11 09:06 上传

点击文件名下载附件