A列的数据提取3个指定数据

江林

从A列提取3个数据，如下图

shiruiqiang

这么规律，可以正则式

limonet

关键字：￥￥

limonet

Sub limonet()
    Dim i%
    With CreateObject("vbscript.regexp")
        .Pattern = ".*?(FH.*?)件数.*?(\d+) 件.*?(\d+\.\d+) Kg\s.*"
        For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
            Cells(i, "B").Resize(1, 3) = Split(.Replace(Cells(i, "A"), "$1￥$2￥$3"), "￥")
        Next i
    End With
End Sub

swl4561255

1. Sub test()
   
2. Application.ScreenUpdating = False
   
3. ar = Range("A1").End(4).Row
   
4. arr = Range("A1:A" & ar)
   
5. brr = Array("[A-Z]{2}-[A-Z][0-9]{2}-[0-9]{2}[A-Z]{2}-[0-9]{1,}", "(\d+)(?=\s件\s总重量)", "\d+(\.\d+)?(?=\sKg)")
   
6. Dim crr(1 To 1000, 1 To 3)
   
7. Set reg = CreateObject("vbscript.regexp")
   
8. For i = 1 To ar
   
9.     For j = 0 To 2
   
10.       With reg
    
11.         .Global = False
    
12.         .Pattern = brr(j)
    
13.         crr(i, j + 1) = .Execute(arr(i, 1))(0)
    
14.       End With
    
15.     Next
    
16. Next
    
17. [B1].Resize(ar, 3) = crr
    
18. Set reg = Nothing
    
19. Application.ScreenUpdating = True
    
20. End Sub

复制代码

ykcbf1100

这么有规律，完全可以不用正则

ykcbf1100

参与一下。。。。

1. Sub ykcbf()  '//2024.4.11
   
2.     r = Cells(Rows.Count, 1).End(3).Row
   
3.     Columns("B:D") = ""
   
4.     arr = [a1].Resize(r, 4)
   
5.     For i = 1 To UBound(arr)
   
6.         st = Split(arr(i, 1), Chr(10))(0)
   
7.         b = Split(st, ":")
   
8.         arr(i, 2) = Split(b(1))(1)
   
9.         arr(i, 3) = Val(b(2))
   
10.         arr(i, 4) = Val(b(3))
    
11.     Next
    
12.     [a1].Resize(r, 4) = arr
    
13.     [a1].Resize(r, 4).Borders.LineStyle = 1
    
14.     MsgBox "OK！"
    
15. End Sub
    

复制代码

LIUZHU

这个效果，WPS中测试的

LIUZHU

JSA代码参与下，表格中的字符很有规律，正则表达式好写

1. function test(){
   
2.         let regex=/构件号: (.+) 件数: (.+) 件 总重量: (.+) Kg/;
   
3.         let res=Range("a1").CurrentRegion.Value2.map(([x])=>regex.exec(x).slice(1));
   
4.         Range("b1").Resize(res.length,res[0].length).Value2=res;
   
5. }

复制代码

LIUZHU

WPS测试，谢谢