各列の平均の求め方

質問

はじめまして。
よろしくおねがいします。

エクセル２００３を使用しています。

４列目に項目が入力してあり、
５列目に平均、
７列目から下に数値が入力されています。

４列目の項目は今の時点で４０ほど、
７列目以下の数値は１００を越えています。
項目と数値は今後どんどん増えていく予定です。
前は範囲を多めに取って平均を求めていましたが、
数値の数が多くなってきていちいち範囲を変えるのが大変なので、
数値が入力されているセルまでを平均するようなVBAを組みたいです。

よろしくおねがいします。
丸投げで申し訳ございませんが
どなたか助けてください。
おねがいします。

回答No.4

tom04

こんばんは！
データはB列以降にあるとします。

画面左下の操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面に
↓のコードをコピー＆ペーストしてマクロを実行してみてください。
（Alt＋F8キー　→　マクロ　→　マクロ実行です）

Sub test() 'この行から
Dim i, j As Long
For j = 2 To Cells(4, Columns.Count).End(xlToLeft).Column
i = Cells(Rows.Count, j).End(xlUp).Row
If WorksheetFunction.Count(Range(Cells(7, j), Cells(i, j))) Then
Cells(5, j) = WorksheetFunction.Average(Range(Cells(7, j), Cells(i, j)))
End If
Next j
End Sub 'この行まで

※　関数でないので、データ変更があるたびにマクロを実行する必要があります。

参考になりますかね？m(_ _)m

お礼

ありがとうございます。
参考になります！
vba初心者な為皆様に丸投げしてしまいましたが、
回答してくださり感謝しています。

皆さんの回答を参考にどうして行けばよいのか考えてみます。

本当にありがとうございました。