Megpróbálom egyszerűbben, de el is küldöm a füzetet.

 

Tehát az 1:40 cella képlete az A oszlopban:

=RANDBETWEEN(RANDBETWEEN(1;20);RANDBETWEEN(21;30))

Ez 40 db 1 és 30 közötti véletlenszámokat állít elő.

 

A 41:69-ben: =RANDBETWEEN(RANDBETWEEN(31;40);RANDBETWEEN(41;50))

31 és 50 közötti számok, 29 db.

 

70:84-be: =RANDBETWEEN(RANDBETWEEN(51;60);RANDBETWEEN(61;70))

85:93-ba: =RANDBETWEEN(RANDBETWEEN(71;80);RANDBETWEEN(81;90))

94:98-ba: =RANDBETWEEN(RANDBETWEEN(91;100);RANDBETWEEN(101;110))

99:100-ba: =RANDBETWEEN(RANDBETWEEN(111;120);RANDBETWEEN(121;130))

 

Ezután egy makró a C oszlopot feltölti a véletszámokkal, a C2:C1001 tartományban (címnek hagyva helyet a C1-ben).

 

Sub rand()

Dim i As Long

For i = 1 To 1000

Cells(1, 10) = "=RANDBETWEEN(1,100)"

Cells(i + 1, 3) = Cells(Cells(1, 10), 1)

Next

End Sub

 

Természetesen az A oszlop véletlen tartományait a saját igényednek megfelelően add meg.