標題: [發問] 菜單剖析後,轉換成資料庫格式 [打印本頁]

---

作者: starry1314    時間: 2017-8-23 11:32     標題: 菜單剖析後,轉換成資料庫格式

1. Sub 組合剖析()
   
2.   str As String
   
3.     Dim S As Variant
   
4. 
   
5. '
   
6.             str = Sheets("原始資料").[B3].Value
   
7. 
   
8. 
   
9.                S = Split(str, "、")
   
10.    

複製代碼

[attach]27658[/attach]
[attach]27657[/attach]

---

作者: starry1314    時間: 2017-8-23 12:06

已解決,可否幫看看該如何簡化 或改善代碼

1. Sub 組合剖析()
   
2.   Dim str As String
   
3.     Dim S As Variant
   
4. 
   
5. For 品項列 = 2 To Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row
   
6.             str = Sheets("原始資料").Range("B" & 品項列).Value
   
7. 
   
8. 
   
9.        品項 = Sheets("原始資料").Range("A" & 品項列).Value
   
10.    
    
11.       
    
12.                 S = Split(str, "、")
    
13.              RW = Cells(ActiveSheet.Rows.Count, 5).End(xlUp).Row
    
14.                 ReDim brr(0 To UBound(S))
    
15.               
    
16.                 For E = 0 To UBound(S)
    
17.             Range("D" & E + RW + 1) = 品項 '品項
    
18.                     Range("E" & E + RW + 1) = S(E) '食材
    
19.             
    
20.                 Next
    
21. Next
    
22. 
    
23. 
    
24. End Sub

複製代碼

回復 1# starry1314

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)