|
教えて下さい。
Scripting.Dictionaryのテーブル個数は決まっているのでしょうか?
横に12項目あり、その7番目をkeyとして
利用し、9番目を加算させている処理です。
a(8) = vnt(i, 9)の箇所でエラーなるのですが
何か記述がおかしいのか教えて下さい。
宜しくお願いします。
Dim vnt, a
Dim dic As Object
'
With Sheets("作業3")
vnt = .Range("G2", .Range("A65536").End(xlUp)).Value
End With
'
Set dic = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(vnt, 1)
If Not dic.exists(vnt(i, 7)) Then
ReDim a(9)
a(0) = vnt(i, 1)
a(1) = vnt(i, 2)
a(2) = vnt(i, 3)
a(3) = vnt(i, 4)
a(4) = vnt(i, 5)
a(5) = vnt(i, 6)
a(6) = vnt(i, 7)
a(7) = vnt(i, 8)
a(8) = vnt(i, 9)
'a(9) = vnt(i, 10)
'a(10) = vnt(i, 11)
'a(11) = vnt(i, 12)
Else
a = dic(vnt(i, 7))
End If
'a(8) = a(8) + vnt(i, 9)
dic(vnt(i, 7)) = a
Next i
|
|