空き番を埋めていくマクロを作りたい

質問

こんにちは。どうしていいかわからないので助けて下さい。

私立高校で教えている者です。もうすぐ学年末の成績処理が始まるのですが、各担当によって体裁のことなるエクセルのシートをそろえる必要があります。

生徒番号は各学年７クラスですので、１年生は10101～10750、２年生は20101～20750、３年生は30101～30750の番号が割り当てられています。

留年生や選択科目・進路希望によって、クラスによって少ないクラスは36人、多いクラスは42人とばらつきがあります。

たいていの職員は学校で配布されている基本名簿データを利用しているので、７クラス分のデータは21～370行目に入っています(１組生徒は21～70行目、２組生徒は71～120行目のようになっています)。A列は生徒番号、B列は氏名、C列以降に成績などが入力されています。

担当者全員が各クラス50行ずつとって処理をしてくれていればいいのですが、担当者によっては不要な行(該当する生徒名が入っていない番号が入っている行です。例えば１年１組が40人クラスだとすると10141～10150が入力されていた61～70行目)を削除しています。そのため、そのままの状態では串刺し計算のようなことができません。

なんとか10141～10150のような空き番を最終行の１つ下から書き込んでいって、ソートをして、7クラスの生徒のデータを21～370行に納めるマクロを作りたいと思うのですが、どのようにしたらいいでしょうか？

回答No.1

hige_082 · ベストアンサー

詳細が分かりません
結局、２１行目から生徒番号を比較して、無い番号を最終行に追加すれば終わりでよろしいか？
条件は５０づつクラスをプラスするを７クラスまでを３年生分まで
〆て１０５０行で

Sub test()
Dim 学年 As Long
Dim クラス As Long
Dim 出席番号 As Long
Dim 処理行 As Long
処理行 = 21
For 学年 = 10000 To 30000 Step 10000
For クラス = 100 To 700 Step 100
For 出席番号 = 1 To 50 Step 1
If Not Cells(処理行, 1).Value = 学年 + クラス + 出席番号 Then
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Value = 学年 + クラス + 出席番号
Else
処理行 = 処理行 + 1
End If
Next 出席番号
Next クラス
Next 学年
End Sub

実行前後に、Ａ列をソートすること
アレンジはご自分で

お礼

おはようございます。

遅い時間に回答いただきありがとうございました。思った通りの結果を得ることができました。

マクロの処理の仕方を見るとなるほどなぁと思いました。私には思いつかなかったです。配列に生徒番号のすべてを入れておいて、操作することだけを考えていました。

学年ごとにシートは別になっていることを質問するときに忘れていました。すみません。学年の部分のみ修正することでできました。ソートの部分は別のマクロを自分で作っているので、一括して処理することもできました。