- 帖子
- 471
- 主題
- 121
- 精華
- 0
- 積分
- 579
- 點名
- 0
- 作業系統
- WIN10
- 軟體版本
- OFFICE2019
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2015-4-16
- 最後登錄
- 2023-1-17
|
2#
發表於 2017-8-23 12:06
| 只看該作者
已解決,可否幫看看該如何簡化 或改善代碼- Sub 組合剖析()
- Dim str As String
- Dim S As Variant
- For 品項列 = 2 To Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row
- str = Sheets("原始資料").Range("B" & 品項列).Value
- 品項 = Sheets("原始資料").Range("A" & 品項列).Value
-
-
- S = Split(str, "、")
- RW = Cells(ActiveSheet.Rows.Count, 5).End(xlUp).Row
- ReDim brr(0 To UBound(S))
-
- For E = 0 To UBound(S)
- Range("D" & E + RW + 1) = 品項 '品項
- Range("E" & E + RW + 1) = S(E) '食材
-
- Next
- Next
- End Sub
|
|
