不规划分隔符号数据分列

gwjkkkkk

yshcy 发表于 2024-7-28 17:47
If UBound(cr) + 1 > iColSize Then iColSize = UBound(cr) + 1  这句能否解释下？ iColSize不明白

因为数据不知道多少列，故定义一个较大的数组，在程序运行时，限定输出范围，避免无效空白内容输出。

ykcbf1100

参与一下，这个可以不用正则吧，用Replace和split二个函数就可以搞定了。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.7.28
   
2.     r = Cells(Rows.Count, 1).End(3).Row
   
3.     [b1:z1000] = ""
   
4.     arr = [a1].Resize(r, 20)
   
5.     For i = 1 To UBound(arr)
   
6.         st = arr(i, 1)
   
7.         st = Replace(st, "", "-")
   
8.         st = Replace(st, "/", "-")
   
9.         b = Split(st, "-")
   
10.         For j = 0 To UBound(b)
    
11.             arr(i, j + 2) = b(j)
    
12.         Next
    
13.     Next
    
14.     [a1].Resize(r, 20) = arr
    
15.     MsgBox "OK！"
    
16. End Sub
    

复制代码

roserice

=REGEXEXTRACT(A1,"\w+\b",1)

usedrange

参与一下

1. Sub test()
   
2. Dim ss As Range, reg, sj, i
   
3. Set reg = CreateObject("vbscript.regexp")
   
4. With reg
   
5.     .Global = True
   
6.     .Pattern = "(?:[\u4e00-\u9fffA-Z0-9])+" '"(.+?)[-\/\\]|.+"
   
7.     For Each ss In Range("a1", Cells(Rows.Count, 1).End(xlUp))
   
8.         Set sj = .Execute(ss)
   
9.         For i = 0 To sj.Count - 1
   
10.             ss.Offset(0, i + 1) = sj(i)
    
11.         Next i
    
12.         Set sj = Nothing
    
13.     Next ss
    
14. End With
    
15. Set reg = Nothing
    
16. End Sub

复制代码