|
以下の内容で処理しているのですが
出力ファイルに284行目以降出力
されないのですが、これは何か
不具合なのでしょうか、それとも
メモリーないでの編集個数が多すぎるでしょうか?
お手数ですが、教えて下さい。
Dim vnt, a
Dim dic As Object
'
With Sheets("作業3")
vnt = .Range("M2", .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(12)
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)
a(12) = vnt(i, 13)
If vnt(i, 1) = "2" Then
a(12) = a(12) + vnt(i, 9)
End If
Else
a = dic(vnt(i, 7))
a(8) = a(8) + vnt(i, 9)
If vnt(i, 1) = "2" Then
a(12) = a(12) + vnt(i, 9)
End If
End If
' a(8) = a(8) + vnt(i, 9)
dic(vnt(i, 7)) = a
Next i
'-----結果出力
With Sheets("作業4")
.Cells.ClearContents
.Range("A1").Resize(, 13).Value = Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13")
.Range("A2").Resize(dic.Count, 13).Value = Application _
.Transpose(Application.Transpose(dic.items))
.Select
End With
Erase vnt
Set dic = Nothing
|
|