[VBA]二次元配列を使ったsumif

質問

こちらの識者の方々にはいつもお世話になっています。
VBAの質問です。

環境は下記になります。
OS=windowsXP SP3
Office=Excel2003(11.8347.8403) SP3

vbaでワークシート関数でいうsumifにあたる計算をしたいのですが、自分なりに二次元配列でコードを書いたものの、それでも時間がかかりすぎるため質問させていただきます。
:Sheet1
　　　　　4月　　　5月　　　6月　　　7月
りんご　　20　　　　10　　　31
みかん　　50　　　　　　　　40　　　　20
バナナ　　35　　　　15　　　20
りんご　　　　　　　52　　　50　　　　65
ぶどう　　　　　　　　　　　32　　　　63
みかん　　21　　　　　　　　23　　　　50

のようなデータが約40,000行存在します。

これをSheet2に
　　　　　4月　　　5月　　　6月　　　7月
りんご　　20　　　　62　　　81　　　65
みかん　　71　　　　0　　　　63　　　70
バナナ　　35　　　　15　　　20　　　　0
ぶどう　　0　　　　　0　　　32　　　　63

のような形で集計したいのです。
自分で書いたコードは下記です。

Option Explicit
Option Base 1

Sub test()

　Dim SourAry As Variant
　Dim DestAry As Variant
　Dim SourEndRow As Long
　Dim DestEndRow As Long
　Dim i As Long
　Dim j As Long
　Dim k As Long
　Dim TTL As Long

　Application.ScreenUpdating = False

　SourEndRow = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
　DestEndRow = Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row
　SourAry = Sheets("Sheet1").Range("A2:E" & SourEndRow).Value
　DestAry = Sheets("Sheet2").Range("A2:E" & DestEndRow).Value

　For i = 2 To 5
　　For j = 1 To UBound(DestAry)
　　　For k = 1 To UBound(SourAry)
　　　　If SourAry(k, 1) = DestAry(j, 1) Then TTL = TTL + SourAry(k, i)
　　　　DestAry(j, i) = TTL
　　　Next k
　　　TTL = 0
　　Next j
　Next i
　Sheets("Sheet2").Range("A2:E" & DestEndRow).Value = DestAry

　Application.ScreenUpdating = True

End Sub

これでも一応希望通りの結果は得られるのですが、40,000行ともなると配列で処理したとしてもとても時間がかかってしまいます。
ご教示いただきたいことは、もっと効率のいいコードなのですが、実は実際のデータはSheet1とSheet2のA列のデータは昇順で並んでおります。

後学のためにもしよろしければ下記2パターンを教えて戴けませんでしょうか。
1.キーとなるフィールドが昇順で並んでいる場合
2.キーとなるフィールドの順番がばらばらで、かつ並び替えることができない場合（A列総当たり）

2.のパターンの場合、コードによると思いますが、総当たりよりかはやはり並び替えた方が効率はいいものなのでしょうか？

質問に不備不足等ございましたらご指摘ください。
ご面倒お掛けしますがよろしくお願いします。

回答No.1

keithin · ベストアンサー

試しに次のように。

sub macro1()
　worksheets("Sheet2").cells.clearcontents
　worksheets("Sheet2").range("A1").consolidate _
　　sources:="Sheet1!" & worksheets("Sheet1").range("A1").currentregion.address(true,true,xlr1c1), _
　　function:=xlsum, toprow:=true, leftcolumn:=true, createlinks:=false
end sub

お礼

素晴らしいです！
そのものずばりのものがあったんですね。
引数：sourcesの指定のやり方が少し独特で慣れないですが、これで希望のものができました！
ありがとうございました！