Just nu tilldelar du Arrayen a(n) värdet i a, den (tomma) variabeln. Som dessutom borde vara samma sak som a(0). Tror jag...

 a(n) = a
 b(n) = b
 c(n) = c

Det här petar in bokstäver istället för variabelvärden

 a(n) = "a"
b(n) = "b"
c(n) = "c"

 

Det här blir ett roligare test där du fyller arrayen i en loop och hämtar i en annan.

Sub prov_array()

 Dim a(27), b(27), c(27) As Variant

Dim n, t As Integer

 For n = 1 To 27

    a(n) = "a" & 100 + n

    b(n) = "b" & 100 + n

    c(n) = "c" & 100 + n

Next n

For t = 1 To 27

    Cells(t + 1, 3).Value = a(t)

    Cells(t + 1, 5).Value = b(t)

    Cells(t + 1, 7).Value = c(t)

Next t

 

End Sub

 

Om du har tråkigt kan du googla 

redim array vba

eftersom jag antar att du är på väg dit..

 

Hej hej

Det finns flera problem med din metod. Ett av dem är att samtliga kombinationer i lotto landar på omkring 33 miljarder, excel har 1 miljon celler, så alla kommer inte att få plats, och dessutom orsaka en krash. Om det blir minnesproblem eller outofrange återstår att se :). Dessutom så blir konsekvensen av For b = a + 1 To 30 att du missar en hel del kombinationer. Exempel: när A är 25 i din loop, så kan resten av serien inte få värden som understiger detta. b kan aldrig vara mindre än 26, c aldrig mindre än 27 osv. Fundera istället på om du kan få fram ett tal utan att behöva iterera igenom alla möjliga kombinationer.

Nedan kod slumpar fram en enda serie, med enda villkor att framslumpad "boll", inte får vara samma tal som tidigare "boll". Det går självklart att bygga på med fler villkor. Raden skrivs ut till det aktiva bladet i cellerna a1:g1

Mvh
Christian

Sub rndmLotto()

Dim intArr(6) As Integer
Dim i As Integer

For i = 0 To UBound(intArr)
intArr(i) = rdmNr(intArr)
Next i

Dim OutPutRange As Range: Set OutPutRange = ActiveSheet.Range("A1:G1")
OutPutRange.Value2 = intArr

End Sub
Function rdmNr(intArr As Variant) As Integer

Dim i As Integer, newRnd As Integer, NumberAlreadyExist As Boolean: NumberAlreadyExist = True

'Slumpar fram ett nummer mellan 1 och 27. Om numret som slumpas fram redan finns, så kör loopen en iteration till
While NumberAlreadyExist
NumberAlreadyExist = False
newRnd = (27 * Rnd) + 1
For i = 0 To UBound(intArr)
If intArr(i) = newRnd Then
NumberAlreadyExist = True
End If
Next i
Wend
rdmNr = newRnd

End Function