VBAでの平均値計算

Question

VBAを最近始めた初心者です。

前提・実現したいこと

B列の単価の平均値を表示したい。
st1を単純に
st1 = st1 + Cells(i, 2) / i
としましたが
思い通りの数値になりません。
どこが間違っているのかわかりません…
こうなってほしい結果を追加しました。

Comments

[meg_]

コードは「コードの挿入｣で記入してください。

[y_waiwai]

思い通りの数値になりません。とは、どういう数値になるんでしょうか

[jinoji]

こうなってほしいという結果（出力イメージ）をExcelシートに一度作ってみて
それも貼り付けていただけると、アドバイスがしやすいと思います。

Answer 1

st1 = st1 + Cells(i, 2) / i

i はForループで1加算され続けるので、それで割っては平均になるはずがないですね。

平均は 合計÷個数 ですので、ここは単純に加算して合計を求めます。

st1 = st1 + Cells(i, 2)

別に個数を計算する変数（cnt）を用意して、それに加算していきます。
cnt = cnt + 1

で、小計行(Elseの時)で 合計(st1)÷個数(cnt)で平均を計算して代入します。

Cells(i,2) = st1 / cnt

このあと、変数をリセットします。

st = 0
cnt = 0

これで平均がでると思います。

Comments

[ssmcapelin]

できました。ありがとうございました。