Private Sub CommandButton10_Click()
ds '年間平均をシートに表示させる
f41 '生徒の合計点・平均点の計算
f42 '各教科等の合計点・平均点の計算
f43 '各生徒の合否判定
f44 '各生徒の講評
f45 '各生徒の最高点の算出
f46 '各生徒の最低点の算
f47 '各教科と合計・平均の最高点の算出
f48 '各教科と合計・平均の最低点の算出
Cells(162, 1).Select
End Sub
Sub ds()
Dim i As Byte, j As Byte, k As Byte, w As Integer
For i = 1 To 40
For j = 1 To 5
w = 0
For k = 1 To 3
w = w + Cells(6 + i + 47 * (k - 1), 1 + j)
Next
Cells(147 + i, 1 + j) = w / 3
Next
Next
End Sub
・
・
（以下のコードは同じ。）
シートのセルの設定
B148からJ191までドラッグで範囲指定→右クリック→セルの表示形式→表示形式→
としてOKをします。
参考ファイル成績一覧表マクロ完成版１
解説
dsが３次元ループとなっています。
縦（出席番号）、横（教科）に加えて学期があるからです。
For i = 1 To 40
For j = 1 To 5
w = 0
For k = 1 To 3
w = w + Cells(6 + i + 47 * (k - 1), 1 + j)
Next
Cells(147 + i, 1 + j) = w / 3
Next
Next
のｉは出席番号、ｊは教科番号（１：国語、２：社会、３：数学、４：理科、５：英語）、ｋは学期数に対応しています。
+ 47 * (k - 1)は、
対応データが４７飛びであるからです。
では、次にグローバル３次元配列を冒頭で宣言して、それを利用して年間処理をする方法を考えましょう。
今回も、コードはなるべく活かすということを条件とします。
第４話へ 第６話へ
