SUMIF関数と同じ集計をVBAで行いたい

質問

今はSUMIF関数で複数シートデータの集計をしていますが、
データ数が膨大なため処理に多大な時間が掛かっています。
VBAで同じ様な処理がしたく、ご教授の程よろしくお願いします。
Sheetは1～12まであり、同じレイアウトです。
行数は、Sheetごとに異なります。
集計結果Sheetに、品名ごとの収入計と支出計を集計したい。

Sheet1
　　　A　　　　B　　　　C　　　　D
1 月日　　品名　　 収入 支出
2　5/10　 りんご　 30000　 20000
3　5/15　 さかな　 20000　 30000　
4　5/20　 きのこ　 50000　 20000
5　5/25　 さかな　 30000　 10000
6　5/30　 おかし　 15000　 10000
7　5/30　 おかし　 20000　 20000
5　5/10　 りんご　 40000　 20000

Sheet2
　　　A　　　　B　　　　C　　　　D
1 月日　　品名　　 収入 支出
2　6/13　 きのこ　 10000　 30000
3　6/25　 さかな　 20000　 20000
4　6/30　 おかし　 55000　 30000
5　6/10　 りんご　 20000　 10000
6　6/15　 さかな　 10000　 10000

集計結果Sheet
　　　A　　　　B　　　　C
1 品名　　 収入　　支出
2　きのこ
3　さかな　
4　おかし　
5　りんご

回答No.2

n-jun · ベストアンサー

>なお、一番後ろのシート名は何でも良いのでしょうか？
なんでも（白紙）でいいです。

>申し訳ございませんが、下記の部分で実行エラー13 型が一致しません
>とエラーが出ます。
>: x(2, k) = x(2, k) + v(i, 2)
シートの左から１～１２番目で間違いないですか？
収入・支出はＣ・Ｄ列の２行目からで、数字（文字列）ではないですよね？
空白セルとかが途中にありますか？

お礼

すみません、出来ました！
丁寧なご回答、ありがとうございました。

回答No.1

n-jun

Sub　test()
　Dim　Dic　As　Object
　Dim　ws　As　Integer
　Dim　v　As　Variant
　Dim　x　As　Variant
　Dim　i　As　Long,　j　As　Long,　k　As　Long

　Set　Dic　=　CreateObject("Scripting.Dictionary")
　ReDim　x(1　To　3,　1　To　1)

　For　ws　=　1　To　12
　　　　　With　Worksheets(ws)
　　　　　　　　　　v　=　.Range(.[B2],　.Cells(Rows.Count,　2).End(xlUp).Resize(,　3))
　　　　　End　With
　　　　　For　i　=　1　To　UBound(v,　1)
　　　　　　　　　If　Not　Dic.exists(v(i,　1))　Then
　　　　　　　　　　　　j　=　j　+　1
　　　　　　　　　　　　Dic(v(i,　1))　=　j
　　　　　　　　　　　　x(1,　j)　=　v(i,　1):　x(2,　j)　=　v(i,　2):　x(3,　j)　=　v(i,　3)
　　　　　　　　　　　　ReDim　Preserve　x(1　To　3,　1　To　j　+　1)
　　　　　　　　　Else
　　　　　　　　　　　　k　=　Dic(v(i,　1))
　　　　　　　　　　　　x(1,　k)　=　v(i,　1):　x(2,　k)　=　x(2,　k)　+　v(i,　2):　x(3,　k)　=　x(3,　k)　+　v(i,　3)
　　　　　　　　　End　If
　　　　　Next
　Erase　v
　Next
　With　Worksheets(Worksheets.Count)
　　　　　.Cells.ClearContents
　　　　　.Range("A1:C1").Value　=　Array("品名",　"収入",　"支出")
　　　　　.Range("A2").Resize(j,　3).Value　=　Application.Transpose(x)
　End　With
　Erase　x
　Set　Dic　=　Nothing
End　Sub
シート1～シート12の結果が一番後ろに新規でシートを作っておけば
そこに表示されるはずです。
試してみて下さい。

補足

ご教授の程、ありがとうございました。

申し訳ございませんが、下記の部分で実行エラー13 型が一致しませんとエラーが出ます。
: x(2, k) = x(2, k) + v(i, 2)

なお、一番後ろのシート名は何でも良いのでしょうか？