Option Explicit Sub main() Const MAX = 100 Const TRIAL = 1000 Dim session As Long Dim i As Long Dim n As Long Dim count(6) As Long For i = 1 To 6 count(i) = 0 Next i For session = 1 To MAX Randomize For i = 1 To TRIAL n = Int(Rnd() * 6 + 1) count(n) = count(n) + 1 Next i Cells(session, 1).Value = session For i = 1 To 6 Cells(session, i + 1).Value = count(i) / (TRIAL * session) Next i Next session End Sub