Sub maketable() '-------乱数の範囲を読み込む------ Dim st(5) '範囲の下限 Dim en(5) '範囲の上限 For i = 0 To 5 st(i) = Cells(3 + i, 1).Value en(i) = Cells(3 + i, 2).Value Next '------度数を発生させる------ Dim freq(5) n = Cells(1, 2).Value …