可視セルのみで平均を計算

Sheet1にある表をオートフィルタで抽出し、その可視セルの三列目にある値の平均値をSheet2のあるセルに出力するマクロを作りたいのですが、どうすればいいでしょうか？

↓これがキー
番号　　　　　名前　　　　　 値
027＊＊＊　　あそこ　　　　　12
027＊＊＊　　こちら　　　　　0
027＊＊＊　　どちら　　　　　5
　　・　　　　・　　　　　　 ・
　　・　　　　・　　　　　　 ・
　　・　　　　・　　　　　　 ・

右の値の平均値をSheet2に出力

No.2 回答者： bari_saku 回答日時： 2007/06/09 13:41

オートフィルタを使うことが前提なら、マクロを使わなくても関数でいけるのでは。

SUBTOTAL関数を使えば、オートフィルタによる非表示行は無視されますので。

http://www.asahi-net.or.jp/~ef2o-inue/shiki/sub0 …

上記のページでは合計の場合が紹介されていますが、紹介されている式の「9」の代わりに「1」を入れれば、平均が表示されます。

この回答への補足

ありがとうございます。できました。リンク先でもっと勉強します

補足日時：2007/06/09 14:30

No.1 回答者： zap35 回答日時： 2007/06/09 13:40

SUBTOTAL関数でフィルタの可視セルだけの計算ができます。

　=SUBTOTAL(1,Sheet1!C2:C100)
で計算可能です。