| |
○○の一つ覚えで、dictionaryを使います。
書き込み場所とか、適当に修正してください。
Sub test()
Dim dic As Object
Dim k As Long
Dim s As String
Dim a
Dim d
Set dic = CreateObject("Scripting.Dictionary")
' 商品&tab&伝票をキーとした辞書に、数量を加算して集計する
For k = 2 To Range("A1").End(xlDown).Row
s = Cells(k, 2).Text & vbTab & Cells(k, 3)
dic(s) = dic(s) + Cells(k, 1).Value
Next
'集計結果を5,6,7列に書き込みます。
k = 1
For Each d In dic
k = k + 1
a = Split(d, vbTab)
Cells(k, 5).Value = dic(d)
Cells(k, 6).Value = a(0)
Cells(k, 7).Value = a(1)
Next
'あとはソートするだけ（マクロ記録で頑張ってください）
End Sub
|
|
γ
- 14/7/11(金) 20:47 -
