Mój problem to powtarzajace się liczby cyfry i chciałem aby się dapisywały w kolejnych wersach w kolumnie K
Sub Ósemka()
'
' Ósemka Makro
'
' Klawisz skrótu: Ctrl+Shift+O
'Makro losujące 8 liczb <del>cyfr</del> z 68
Dim i As Integer
Dim Liczba As Integer
For i = 1 To 8
Randomize
Liczba = Int(Rnd * (68) + 1)
Range("K" & i) = Liczba
Next i
End Sub
fakt nie przywiazuje do tego wagi :) a w matematyce informatyce to ważne
co powinienienem dodać i gdzie aby się liczby nie powtarzały ? i dopisywały do kolejnych wierszy w kolumnie k będze wdzieczny za podpowiedz bo już cały wolny dzień spedziłem nad informatyką :)