单元格根据符号拆分

zyfahy

A列的每一行数据都是由    X,Y;    的形式组成，数量不一定是多少

求助如何提取每一个逗号前面的那个数字（例如BCD三列）

jiminyanyan

附件呢。。。。。

jiminyanyan

Sub jimin()
    Dim reg As Object
    Set reg = CreateObject("vbscript.regexp")
    Dim sr, x
    Sheet1.Activate
    For x = 1 To Range("a65536").End(xlUp).Row
        sr = Cells(x, 1)
        k = 2
        With reg
            .Global = True
            .IgnoreCase = True
            .Pattern = "\d+(?=,)"
            For Each Item In .Execute(sr)
                sr = Item
                Cells(x, k) = sr
                k = k + 1
            Next
        End With
    Next x
    Sheet1.Activate
End Sub

jiminyanyan

。。。。。。。

zyfahy

jiminyanyan 发表于 2018-6-28 21:51
Sub jimin()
    Dim reg As Object
    Set reg = CreateObject("vbscript.regexp")

非常感谢！！！！！！！

zyfahy

jiminyanyan 发表于 2018-6-28 21:51
Sub jimin()
    Dim reg As Object
    Set reg = CreateObject("vbscript.regexp")

那如果是三个数组成的呢？  1，2，3；    4，5，6；

duquancai

zyfahy 发表于 2018-6-28 22:06
那如果是三个数组成的呢？  1，2，3；    4，5，6；

三个组成的，要哪些数字 你又不说完整？

duquancai

zyfahy 发表于 2018-6-28 22:06
那如果是三个数组成的呢？  1，2，3；    4，5，6；

1. Sub main()
   
2.     Dim r&, js As Object
   
3.     r = Cells(Rows.Count, 1).End(3).Row
   
4.     Set js = CreateObject("MSScriptControl.ScriptControl")
   
5.     js.Language = "JavaScript": js.AddObject "g", Range("a1")
   
6.     js.eval "l=" & r & ";for(i=0;i<l;i++){a=g(i+1,1).text.match(/\d+(?=[,，])/g);if(a)for(j=0;j<a.length;j++)g(i+1,j+2)=a[j]}"
   
7.     MsgBox "ok!"
   
8. End Sub

复制代码

Kaohsing

试试

Sub kao_2() '
    Dim js As Object, i%, arr, arr2
    Set js = CreateObject("scriptcontrol")
    js.Language = "jscript"
    js.eval "function aa(aa) { return aa.match(/\d+(?=,)/g)}"
    For i = 1 To [a1].End(3).Row
        Set arr = js.Run("aa", Cells(i, 1).Text)
        arr2 = Split(arr, ",")
        Cells(i, 3).Resize(1, UBound(arr2) + 1) = arr2
    Next
End Sub

jiminyanyan

zyfahy 发表于 2018-6-28 22:06
那如果是三个数组成的呢？  1，2，3；    4，5，6；

要什么样的结果。。。。