正则表达式

wanghui834

楼主，试下是否符合要求

tcdatongye

ME.李 发表于 2024-11-17 17:14
嗯谢谢朋友，还有一个问题请教    就是假如我现在也想把相对应的数量提出来到数量这一列  我现在只能把第 ...

1. Sub test()
   
2. Set reg = VBA.CreateObject("vbscript.regexp")
   
3. k = Sheets(1).Cells(65536, 1).End(xlUp).Row
   
4. With reg
   
5.   .Global = True
   
6.   .Pattern = ".*?([^（）贴]+?)(\d+\D)?(?=（)"
   
7.   For i = 5 To k
   
8.   arr = VBA.Split(.Replace(Sheets(1).Cells(i, 1), "$1\$2"), "")
   
9.   Sheets(1).Cells(i, 6) = arr(UBound(arr))
   
10.   t1 = "": t2 = ""
    
11.   For j = 0 To UBound(arr) - 1
    
12.     If j Mod 2 Then
    
13.       t1 = t1 & arr(j) & "    "
    
14.       Else
    
15.       t2 = t2 & arr(j) & "    "
    
16.     End If
    
17.   Next j
    
18.   Sheets(1).Cells(i, 5) = VBA.Trim(t1)
    
19.   Sheets(1).Cells(i, 4) = VBA.Trim(t2)
    
20.   Next i
    
21. End With
    
22. End Sub

复制代码

tcdatongye

ME.李 发表于 2024-11-17 17:14
嗯谢谢朋友，还有一个问题请教    就是假如我现在也想把相对应的数量提出来到数量这一列  我现在只能把第 ...

如果想去掉括号：

1. Sub test()
   
2. Set reg = VBA.CreateObject("vbscript.regexp")
   
3. k = Sheets(1).Cells(65536, 1).End(xlUp).Row
   
4. With reg
   
5.   .Global = True
   
6.   .Pattern = ".*?([^（）贴]+?)(\d+\D)?(?=（)|（(.*?)）$"
   
7.   For i = 5 To k
   
8.   arr = VBA.Split(.Replace(Sheets(1).Cells(i, 1), "$1\$2\$3"), "")
   
9.   Sheets(1).Cells(i, 5) = arr(UBound(arr))
   
10.   t1 = "": t2 = ""
    
11.   For j = 0 To UBound(arr) - 3
    
12.     If j Mod 2 Then
    
13.       t1 = t1 & arr(j) & "    "
    
14.       Else
    
15.       t2 = t2 & arr(j) & "    "
    
16.     End If
    
17.   Next j
    
18.   Sheets(1).Cells(i, 6) = VBA.Trim(t1)
    
19.   Sheets(1).Cells(i, 4) = VBA.Trim(t2)
    
20.   Next i
    
21. End With
    
22. End Sub

复制代码

ME.李

tcdatongye 发表于 2024-11-18 10:35
如果想去掉括号：

感谢兄弟  都感觉你们挺厉害的

ME.李

wanghui834 发表于 2024-11-17 20:18
楼主，试下是否符合要求

嗯 还是感谢  

ME.李

tcdatongye 发表于 2024-11-18 10:35
如果想去掉括号：

今天早上测试了  结果是都放在  Sheets(1).Cells(i, 5) = arr(UBound(arr))  这个单元格里，   然后假如遇见kg/桶这种情况  我能正则测试器 单独拆开 但是既有带括号和kg/桶 两种条件  就不知道怎么写表达式了

tcdatongye

ME.李 发表于 2024-11-19 08:13
今天早上测试了  结果是都放在  Sheets(1).Cells(i, 5) = arr(UBound(arr))  这个单元格里，  然后假如遇 ...

要给测试原始数据，一次性提出要求，不要挑战别人的耐心。

ME.李

tcdatongye 发表于 2024-11-19 09:54
要给测试原始数据，一次性提出要求，不要挑战别人的耐心。

确实不好意思  给你添麻烦了  我还是先自己鼓捣下吧  确实这个数据源里的不确定性太多