Distribuzione casuale dei turni.

Questo è un modo di distribuire casualmente un numero num di contenuti di una cella in modo casuale all'interno di un range formato da numTot celle.

Sub main()
Dim num, numTot, contatore As Integer

    num = 13
    numTot = 30
    contatore = 0
    Do While contatore < num
        k = 1 + Int(Rnd() * numTot)
            If Range(Cells(1, 1), Cells(numTot, 1)).Cells(k, 1).Formula = "" Then
                Range(Cells(1, 1), Cells(numTot, 1)).Cells(k, 1).Formula = "CAR"
                contatore = contatore + 1
            End If
    Loop
End Sub

La distribuzione è assolutamente casuale.