☆Excel VBAでAVERAGE関数を使うとき・・・

こんにちは。ＶＢＡ初心者です。
ＶＢＡでＡＶＥＲＡＧＥ関数を使いたいのですが、参照範囲を最終行まで指定したい場合、
どのようプログラムすれば良いのでしょうか？

　　　　Ａ　　　Ｂ　　　Ｃ　　
　1　5000
　2　2000
　3　3000
　4　1000
　5　6000
　6　　：
　7　　：　　　　← Ａ列の値を平均する。
　　　　　　　　　　Ａ列には膨大な行が存在すると仮定します。

ＶＢＡに詳しい方、教えてください。
どうか、よろしくお願いしますｍ(_ _)ｍ

No.2 ベストアンサー 回答者： hallo-2007 回答日時： 2010/01/11 09:51

A列であれば

MsgBox WorksheetFunction.Average(Columns("A:A"))
でも大丈夫でしょう。
>ＡＶＥＲＡＧＥ関数を使いたいのですが、参照範囲を最終行まで指定したい場合、
AVERAGE関数ですので、最終行の指定をしなくても空白は無視してくれます。

この回答へのお礼

hallo-2007さん、とても参考になりました。
問題も無事解決しました。どうもありがとうございました！(^0^)v

お礼日時：2010/01/11 15:31

No.1 回答者： DreamyCat 回答日時： 2010/01/11 03:34

参考にしてみてください。

Dim vl As Single
vl = Application.WorksheetFunction.Average(Range("A1", Range("A1").End(xlDown)))

MsgBox vl

この回答へのお礼

DreamyCatさん、とても参考になりました！
どうもありがとうございました(*^_^*)

お礼日時：2010/01/11 15:33