求正则表达式解题

1588078/37

grf1973 发表于 2024-5-23 08:58
略作改动即可。

谢谢，这下知道大概怎么改了

ggmmlol

1588078/37 发表于 2024-5-20 18:00
现在遇到这问题

单条正则也可以处理，但比较复杂。
如果对正则感兴趣，可以参考我总结的“万能正则表达式”公式，见以下帖子的第23楼：[第127期]替换特定规则范围内的字符[已总结评分]
https://club.excelhome.net/thread-1506418-1-1.html
(出处: ExcelHome技术论坛)

1. Sub test()
   
2.     Dim Reg, ma, mas
   
3.     r = Cells(Rows.Count, 1).End(xlUp).Row
   
4.     arr = Cells(1, 1).Resize(r, 2)
   
5.     ReDim brr(1 To 3 * r, 1 To 2)
   
6.     Set Reg = CreateObject("VBScript.RegExp")
   
7.     With Reg
   
8.         .Global = True
   
9.         .Pattern = "(?:[\d\*x X×]+(?:预打包|[\(（][新券])|(?:[\*x X×-]|新\d+\)|预打包)\d+|.*?)+(?:(\b\d{4}\b)(?=[^\d新]*(?:(?:\+\d{4})*\))?[\*x X×](\d+))?|$)"
   
10.         For i = 2 To r
    
11.             s = .Replace(StrConv(arr(i, 1), vbNarrow), "$1 $2 ") '正则替换，只保留条码和数量，放在2个“捕获分组”内，以空格符相间隔。
    
12.             If Len(s) > 3 Then
    
13.                 ss = Split(s, " ")
    
14.                 For j = 0 To UBound(ss) - 1 Step 2
    
15.                     If Len(ss(j)) > 0 Then '如果条码非空
    
16.                         n = n + 1 '则增加1项
    
17.                         brr(n, 1) = ss(j)
    
18.                         If j = UBound(ss) Then brr(n, 2) = 1 Else If ss(j + 1) = "" Then brr(n, 2) = 1 Else brr(n, 2) = ss(j + 1) '如果原数量被省略，则记为1
    
19.                     End If
    
20.                 Next
    
21.             End If
    
22.         Next
    
23.     End With
    
24.     Range("B2").Resize(n).NumberFormat = "@"
    
25.     Range("B2").Resize(n, 2) = brr
    
26. End Sub

复制代码

电商编码转为瓶数.rar (20.75 KB, 下载次数: 2)

2024-5-25 06:34 上传

点击文件名下载附件