回答編集履歴
1
コード修正
test
CHANGED
|
@@ -17,11 +17,15 @@
|
|
|
17
17
|
数量と部品名をArray関数で配列にまとめて、Itemに格納すればどうでしょう。
|
|
18
18
|
|
|
19
19
|
```vba
|
|
20
|
+
Dim a As Variant
|
|
21
|
+
|
|
20
22
|
If Not myDic.exists(myList(i, 3)) Then '配列重複チェック
|
|
21
23
|
myDic.Add Key:=myList(i, 3), Item:=Array(myList(i, 1), myList(i, 4))
|
|
22
24
|
Else
|
|
23
25
|
'数量を加算
|
|
26
|
+
a = myDic(myList(i, 3))
|
|
27
|
+
a(0) = a(0) + 1
|
|
24
|
-
myDic(myList(i, 3))
|
|
28
|
+
myDic(myList(i, 3)) = a
|
|
25
29
|
End If
|
|
26
30
|
```
|
|
27
31
|
|