不规划分隔符号数据分列

yshcy

1、A列是数据源，提取结果到B-F列不等。A列中的分隔符合有-、/、\。程序运行结果，倒数第二个分列结果（图中红框部分）没出来，请帮忙对本代码进行改进；2、如果能用数据进行处理的代码弄出来，就更好了，谢谢。

yshcy

第2点是如果能用数组处理，就更好了

ynzsvt

在else后加上
n=n+1

否则覆盖了原来的出来的数据。

limonet

公式=TEXTSPLIT(A1,{"-","/","\"})

limonet

关键字：￥￥￥￥

limonet

Sub limonet()
    Dim Arr As Variant, i%
    With CreateObject("vbscript.regexp")
        .Pattern = "[-/\\]"
        .Global = True
        For i = 1 To 2
            Arr = Split(.Replace(Cells(i, "A"), "￥"), "￥")
            Cells(i, "B").Resize(1, UBound(Arr) + 1) = Arr
        Next i
    End With
End Sub

gwjkkkkk

Option Explicit
Sub TEST1()
    Dim ar, br, cr, i&, j&, r&, iColSize&
   
    r = Cells(Rows.Count, "A").End(xlUp).Row
    ar = Range("A1:A" & r).Value
    ReDim br(1 To UBound(ar), 10 ^ 3)
   
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "[\-\/\\]"
        For i = 1 To UBound(ar)
            ar(i, 1) = .Replace(ar(i, 1), " ")
            cr = Split(ar(i, 1))
            If UBound(cr) + 1 > iColSize Then iColSize = UBound(cr) + 1
            For j = 0 To UBound(cr)
                br(i, j) = cr(j)
            Next j
        Next i
    End With
   
    [B1].Resize(UBound(br), iColSize) = br
    Beep
End Sub

gwjkkkkk

...............

yshcy

ynzsvt 发表于 2024-7-28 15:17
在else后加上
n=n+1

一字千金，谢谢了

yshcy

gwjkkkkk 发表于 2024-7-28 16:03
...............

If UBound(cr) + 1 > iColSize Then iColSize = UBound(cr) + 1  这句能否解释下？ iColSize不明白