Excel VBAで加重平均を計算したい！

質問

こんにちは。VBA初心者なのですが、加重平均のプログラミングの仕方が分からず困っています。

例えば、下の表で、最後の行まで計算する場合、どのようにプログラムするのでしょうか？
（何百行もあり、膨大な計算になると仮定します。）

　　　Ａ　　　　Ｂ　　　　Ｃ
１　5,000　　100　　＿＿＿　　←Ｃ1に加重平均値
２　3,000　　200
３　2,000　　400
４　　：　　　　：　　
５　　：　　　　：

かなり困っているので、どなたか助けてください・・・
よろしくお願いしますｍ(_ _)ｍ

回答No.2

xls88 · ベストアンサー

下記でどうでしょうか。

Dim rngA As String
Dim rngB As String

rngA = Range("A1", Cells(Rows.Count, 1).End(xlUp)).Address
rngB = Range(rngA).Offset(, 1).Address
Range("C1").Formula = "=SUMPRODUCT(" & rngA & "," & rngB & ")/SUM(" & rngB & ")"

あるいは

Dim rngA As Range
Dim rngB As Range

Set rngA = Range("A2", Cells(Rows.Count, 1).End(xlUp))
Set rngB = rngA.Offset(, 1)
With WorksheetFunction
Range("C3").Value = .SumProduct(rngA, rngB) / .Sum(rngB)
End With

お礼

無事に解決できました！
xls88さん、どうもありがとうございます！ｍ(_ _)ｍ

回答No.1

bin-chan

一列を計算用に設けてはいけませんか？列Ｄを計算用に使用します。

１）セルＤ１に式[=A1*B1]を入力。
２）セルＤ１を「コピー」（だけ）
３）Ctrl+Shift+Endキーを押下。
４）「貼り付け」
５）セルＣ１に式[=IF(SUM(B:B)=0,"",SUM(D:D)/SUM(B:B))]を入力。

お礼

早々のご回答ありがとうございます。
お答えいただいた通り、セル計算でも十分計算可能なのですが、
ＶＢＡを使って加重平均をプログラミングしたいんです・・・
もし、おわかりでしたら教えてくださいｍ(_ _)ｍ