VBAでSUMIF関数を繰り返す

VBA初心者です。よろしくお願いします。

Book1のSheet1のA2の値を検索条件とし、Book2のsheet1のA列を検索し、条件に合った行のC列の合計値を取得するとします。出力先はBOOK1のA2と同じ行、C2です。
これだけであれば、sumif関数で処理できるのですが、
Book1のA列の最終行までこの処理を繰り返さなければなりません。
また、毎月、Book1,2ともに最終行が変化します。

上記を簡単に書くと以下になります。

■Book1のsheet1
　　　A　　　B　　　C
1　 101　 リンゴ　（ここにBook2の合計値を出力したい）
2　 202 　レモン　（ここにBook2の合計値を出力したい）
3　 510 　　柿　 　（ここにBook2の合計値を出力したい）

■Book2のsheet1
　　　A　　　B　　　　C
1　 202　 レモン　　10
2　 202 　レモン　　30
3　 101 　リンゴ　　200
4　 707 　ブドウ　　50
5　 101　 リンゴ　　70
6　 510　 　柿　　　100

上記処理をsumif関数、forを使って作成してますが、どうもうまくいきません。
申し訳ございませんがよろしくお願いします。
環境は、Windows7、Office2010 です。

No.2 回答者： tom04 回答日時： 2013/05/02 11:13

こんにちは！

関数でできそうですが、VBAをお望みだというコトですので
一例です。
Excel2007以降のバージョンをお使いだという前提です。
Book1のデータは1行目からあるとします。

Sub Sample1()
Dim i As Long
i = Cells(Rows.Count, 1).End(xlUp).Row
With Cells(1, 3).Resize(i, 1)
.Formula = "=SUMIF([Book2.xlsx]Sheet1!A:A,A1,[Book2.xlsx]Sheet1!C:C)"
.Value = .Value
End With
End Sub

※　Book1のC1セルに入れる数式をそのまま利用しています。
（Excel2003までのバージョンをお使いの場合は
＞=SUMIF([Book2.xlsx]Sheet1!A:A,A1,[Book2.xlsx]Sheet1!C:C)
の
＞xlsx
を
＞xls
とします。

※　Book1のC1セルに個の数式を入れそのままオートフィルでコピーでも大丈夫です。
（IF関数で空白の場合のエラー処理は必要になります）

こんなんではどうでしょうか？m(_ _)m

No.1 回答者： KURUMITO 回答日時： 2013/05/02 09:08

ブック1とブック2を立ち上げておきます。

ブック1のシート見出し（Ｓｈｅｅｔ１）を右クリックして「コードの表示」を選択します。
表示の画面で次のコードを入力します。

Sub 合計値の入力()
Dim n, i, xSuu As Long
Set WB1 = Workbooks("Book2")
Set WB1S1 = Workbooks("Book2").Worksheets("Sheet1")
n = Range("A65536").End(xlUp).Row
For i = 2 To n
xSuu = Range("A" & i)
Range("C" & i) = WorksheetFunction.SumIf(WB1S1.Range("A:A"), xSuu, WB1S1.Range("C:C"))
Next
End Sub

マクロの実行はＡｌｔキーを押しながらＦ8キーを押します。
「合計値の入力」を選択して「実行」ボタンをクリックします。