把一列中的数分出来按订单

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.8.11
   
2.     Set reg = CreateObject("VBScript.Regexp")
   
3.     With Sheets("销售订单申请")
   
4.         r = .Cells(Rows.Count, 1).End(3).Row
   
5.         arr = .[a1].Resize(r, 5)
   
6.     End With
   
7.     With reg
   
8.         .Global = True
   
9.         .Pattern = "产品型号:(.*?) \| 数量:(.*?) \| 单价（含税）:(.*?) \| 销售额（含税）:(\d+(?=\.))"
   
10.     End With
    
11.     On Error Resume Next
    
12.     ReDim brr(1 To 1000, 1 To 8)
    
13.     For i = 2 To UBound(arr, 1)
    
14.         st = Split(Replace(arr(i, 5), ";", Chr(10)), Chr(10))
    
15.         For x = 0 To UBound(st)
    
16.             If st(x) <> "" Then
    
17.                 s = st(x)
    
18.                 If reg.test(s) Then
    
19.                     Set mh = reg.Execute(s)
    
20.                     n = 5
    
21.                     m = m + 1
    
22.                     For j = 1 To 4
    
23.                         brr(m, j) = arr(i, j)
    
24.                     Next
    
25.                     brr(m, 5) = mh(0).submatches(0)
    
26.                     brr(m, 6) = Val(mh(0).submatches(1))
    
27.                     brr(m, 7) = Val(mh(0).submatches(2))
    
28.                     brr(m, 8) = Val(mh(0).submatches(3))
    
29.                 End If
    
30.             End If
    
31.         Next
    
32.     Next i
    
33.     With Sheets("结果")
    
34.         .UsedRange.Offset(1).ClearContents
    
35.         .Columns(1).NumberFormatLocal = "@"
    
36.         .[a2].Resize(m, 8) = brr
    
37.         .[a2].Resize(m, 8).Borders.LineStyle = 1
    
38.         ActiveWindow.DisplayZeros = False
    
39.     End With
    
40. End Sub
    

复制代码

明天会更好zj

Power Query弄一波。

mcy318

明天会更好zj 发表于 2024-8-11 20:19
Power Query弄一波。

强大，分享一下怎么搞的吧