Sub 分布表設定() ' ' 分布表設定 Macro ' マクロ作成日 : 2000/4/4 ユーザー名 : miyamoto ' ' Sheets("得点").Select '学年人数設定 NU = 1 Do Until Cells(NU + 4, 3) = Cells(4, 3) NU = NU + 1 Loop ALL = NU - 1 For N = 1 To 16 Sheets("分布表").Select Range(Cells(5, 3 + N), Cells(15, 3 + N)).Select Selection.FormulaArray = "=FREQUENCY(得点!R5C:R" & ALL + 4 & "C,R5C3:R15C3)" Next End Sub