質問者が納得添付の図を見ると、C13、E13も点数と項目数があるのですが、質問では抜けているのでしょうか?
また、添付にはB列が2つあるのですが、これは無視ということにしています。
入力されているシートのシートイベントに記述します。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
Dim j As Long
If Intersect(Target, Range("D4,D7,D10,D13,D16,E4,E7,E10,...
3973日前view29