VBAのプログラムによる10個ごとの平均値

Question

前提・実現したいこと

VBAでマクロを作成してます．
内容としては，10の倍数の任意の個数n（例えば，10,30,・・,10000・・)を
与えて，とある値を計算し，エクセルのK列5行目からK列にデータを表示してあります．
そして，K列にあるデータの10個ずつの平均値を求め，L列に表示したいと思っています．
（例えば，K5～K14の平均値を求め，L14に表示，次にK15～K24の平均値を求め，L24に表示するの作業を繰り返す．）

発生している問題・エラーメッセージ

最初のK5～K14の平均値を求めることは出来るのですが，
それ以降の平均値を求めること，またL列に表示することが出来ていません．

該当のソースコード

k = 0

For i = 1 + k To 10 + k

  sum = sum + Cells(4 + i, 11)
  
  ave = 0
  
  If i = 10 Then
  
    ave = sum / 10
    
    For j = 0 To n Step 10
    
      Cells(14 + j, 12) = ave
    
    Next j
    
    k = k + 10
    
  End If
  
Next i

試したこと

上記に示したプログラムを実行した結果，K列のデータの10番目に当たる行のL列に
平均値を表示することは出来たのですが，K5～K14と同じ平均値が表示されており，
K15～K24の平均値を求めることが出来ていません．

補足情報（FW/ツールのバージョンなど）

Comments

[m.ts10806]

コードブロックは　``` で「囲って」ください。閉じ部分がないためうまく囲えていません。

Answer 1

とりあえず下記の３案ぐらいのロジックが思いつきます。

案1
値のある最終行を取得する（方法は、WEBで「Excel vba 最終行」で検索すれば見つかります。）
取得できたら、後は、For で最終行までループします。

10行ごとに平均をだすには、
現在の行番号を10で除算した余りが 0 の所になるまで、変数に加算してから10で割れば出ますね。
そこで変数を0に初期化する。
これを最後まで繰り返します。

案2
値のある最終行を取得する
For で最終行まで Step 10 で10行跳びで移動する。
ワークシート関数のAVERAGEで平均を求めてセルに代入する。
（AVERAGEの数式を設定する方法もあり）

案3
Do ・・ Loop構文で、セル値が空白（""）になるまで、繰り返す。
変数に１を加算していって、10になったら、平均を元めて代入する。
変数を0に初期化する。

他にもいろいろ考えられます。

提示のコードをなるべく活かすなら、

Dim LastRow As Long
Dim i As Long, j As Long
Dim vSum As Long

LastRow = 最終行の取得

For i = 5 to LastRow Step 10
   For j = 0 To 9
       vSum = vSum + Cells(i+j,11)
   Next
   Cells(i + 9 ,12).Value = vSum / 10
   vSum = 0
Next

Comments

[h.horikoshi]

hatena19さんの案2を実装してみました。

Dim sx As Long: sx = 5 ' 処理開始行
Dim ex As Long: ex = 100 ' 処理終了行
Dim ix As Long
For ix = sx To ex Step 10
Cells(ix + 9, "L") = WorksheetFunction.Average(Cells(ix, "K").Resize(10, 1))
Next ix
End Sub

Answer 2

いつが最後なのかわからないというのがまず問題かと。
途中で終わってしまう理由は

k = 0

For i = 1 + k To 10 + k
' 略
next i

こう書いているからでは？確認していませんが「i=10」のときが最後なのでその中で

if (i=10) then
  ' 略
  k = k + 10
end if

とやっても無意味だったかと。

Comments

[Sakura1903]

ご回答ありがとうございます.
では, 10個計算し終えた後, 次の10個に移るにはどのようにすればよろしいですか？

[sousuke]

iは最後まで回すようにすればいいかと。どの様にすればいいかは少し考えてみてください。
そもそも今のロジックが仮にうまく言っている場合、無限ループに陥りますよ。何度も言っていますが「最後」をしっかり定義してください。

[Sakura1903]

アドバイスありがとうございます.