Excelであみだくじ を作ってみよう

'横線を描く
Private Sub ExMakeAmidaYoko(nin As Long)
    Dim i As Integer
    Dim j As Integer
    Dim rn As Long
    Dim lrow As Long
    
    '乱数の初期化
    Randomize

    '縦線を描く
    For j = 1 To (nin - 1) * 2 Step 2
        lrow = 1
        Do
            '2～8の乱数
            rn = Int((Rnd * 7) + 2)
            '最終行かチェック
            If lrow + rn >= AMIDAROW - 1 Then
                Exit Do
            End If
            '隣に横線がないかチェック

If Cells(10 + lrow + rn, 2 + j - 2).Interior.Color <> RGB(255, 0, 0) _
And Cells(10 + lrow + rn, 2 + j + 2).Interior.Color <> RGB(255, 0, 0) Then
    Cells(10 + lrow + rn, 2 + j).Interior.Color = RGB(255, 0, 0)
    lrow = lrow + rn + 2
Else
    lrow = lrow + 1
End If

        Loop
    Next
End Sub