请教用VBA拆分订单中的订单

mssjran1

求助~通过VBA怎么得出结果表中的效果~有将近10000多条这种订单数据，需要把每样产品和数量分离出来，求帮忙

mssjran1

请老师有时间了帮忙看一下

小花鹿

这个好办，SPLIT足以解决                                                                                                     

719404338

1. Sub t()
   
2. Dim arr, i%, r%,j%
   
3. For i = 2 To Sheet1.[a65536].End(3).Row
   
4. arr = Split(Sheet1.Range("d" & i), " ")
   
5. j= [a65536].End(3).Row + 1
   
6. For m = 0 To UBound(arr)
   
7. Range("d" & j + m) = Split(arr(m), "(")(0)
   
8. Range("e" & j + m) = Split(Split(arr(m), "(")(1), ")")(0)
   
9. Range("a" & j + m) = Sheet1.Range("a" & i)
   
10. Range("b" & j + m) = Sheet1.Range("b" & i)
    
11. Range("c" & j + m) = Sheet1.Range("c" & i)
    
12. Range("f" & j + m) = Sheet1.Range("e" & i)
    
13. Next
    
14. Next
    
15. End Sub

复制代码

mssjran1

我再产品最后加了空格，运行这个代码提示下标越界，怎么处理这个空格啊

mssjran1

719404338 发表于 2018-9-25 22:13

我再产品最后加了空格，运行这个代码提示下标越界，怎么处理这个空格啊

719404338

mssjran1 发表于 2018-9-26 11:46
我再产品最后加了空格，运行这个代码提示下标越界，怎么处理这个空格啊

Trim去空格。

1. Sub t()
   
2. Dim arr, i%, r%, j%
   
3. For i = 2 To Sheet1.[a65536].End(3).Row
   
4. arr = Split(Trim(Sheet1.Range("d" & i)), " ")
   
5. j = [a65536].End(3).Row + 1
   
6. For m = 0 To UBound(arr)
   
7. Range("d" & j + m) = Split(arr(m), "(")(0)
   
8. Range("e" & j + m) = Split(Split(arr(m), "(")(1), ")")(0)
   
9. Range("a" & j + m) = Sheet1.Range("a" & i)
   
10. Range("b" & j + m) = Sheet1.Range("b" & i)
    
11. Range("c" & j + m) = Sheet1.Range("c" & i)
    
12. Range("f" & j + m) = Sheet1.Range("e" & i)
    
13. Next
    
14. Next
    
15. End Sub
    

复制代码