想提高工作效率，有大神能在现有的VBA宏 基础上帮我在更新下吗？

llh521

想提高工作效率，有大神能在现有的VBA宏 基础上帮我在更新下吗？

详细内容都在上传的附件里。

llh521

有没有大神想想办法谢谢了。

llh521

没人能帮忙解决下吗？

humanmagic

循环目标区域，先用正则分组功能提取，Split函数处理多个订单，然后输出数据

llh521

humanmagic 发表于 2018-6-18 13:18
循环目标区域，先用正则分组功能提取，Split函数处理多个订单，然后输出数据

对VBA  一点都不懂 。。。  能否 在详细的 告诉我下可以吗？

ggmmlol

1. Sub test()
   
2. Dim br(1 To 9999, 1 To 3)
   
3. Set rg = CreateObject("vbscript.regexp")
   
4. rg.Global = True
   
5. r = Cells(Rows.Count, "J").End(xlUp).Row
   
6. ar = Range("H2:J" & r)
   
7. For i = 2 To r - 1
   
8.     rg.Pattern = " *[一-隝]+ *"
   
9.     tmp = Split(rg.Replace(ar(i, 3), ""), "/")
   
10.     rg.Pattern = "\+(\w+)?(\((\d+)\))?"
    
11.     For j = 0 To UBound(tmp)
    
12.         s = Trim(tmp(j)) & " "
    
13.         p = InStr(s, " ")
    
14.         xh = Left(s, p)
    
15.         gg = "+" & Mid(s, p + 1)
    
16.         Set mas = rg.Execute(gg)
    
17.         For Each ma In mas
    
18.             Set smas = ma.submatches
    
19.             n = n + 1
    
20.             br(n, 1) = ar(i, 1)
    
21.             br(n, 2) = smas(2)
    
22.             If Len(br(n, 2)) = 0 Then br(n, 2) = 1
    
23.             br(n, 3) = Trim(xh & smas(0))
    
24.             If br(n, 2) > 1 Then br(n, 1) = br(n, 1) & " X " & br(n, 2)
    
25.         Next
    
26.     Next
    
27. Next
    
28. [A3].Resize(9999, 3) = br
    
29. End Sub

复制代码

llh521

ggmmlol 发表于 2018-6-19 19:29

大神 你好。  我把你这个代码复制进去了  直接 报错  什么都不提示  红色错误，  是否我哪里弄错了呢。

llh521

ggmmlol 发表于 2018-6-19 19:29

可以了 可以了 大神非常感谢  想问下       rg.Pattern = " *[一-隝]+ *"   这个是  我想改成任意的韩文   韩文 代码是什么呢？

llh521

ggmmlol 发表于 2018-6-19 19:29

你好 大神  非常感谢。 都解决了。非常感谢

ggmmlol

rg.Pattern = " *[^\w\(\) +/-]+ *"

排除不属于【字母、数字、下划线、括号、空格、加号、斜杠、减号】  的所有字符及其前后的空格