Nel foglio2 hai già fatto il tutto e non capisco cosa desideri (poi in un foglio 107 domande, l'altro 39?).
Nel caso li numeri fossero intervallati allo stesso modo puoi fare un ciclo (ex per ogni 10 numeri)
vb
Sub Estrai_Ciclo()
Dim X As Long, Min As Long, Max As Long
For X = 1 To 7
Max = X * 10
Min = Max - 9
Cells(X + 1, 2).Value = "DOMANDA " & Int(Rnd() * (Max - Min + 1)) + Min
'oppure
'Cells(X + 1, 2).Value = Cells((Int(Rnd() * (Max - Min + 1)) + Min) + 1, 4)'4 significa colonna D
Next X
End Sub Nel caso fossero intervallati in modo differente devi mettere a posto i vari Min & Max
vb
Sub Estrai_Fisso()
Dim Min As Long, Max As Long
'''''
Min = 1
Max = 10
Cells(2, 2).Value = "DOMANDA " & Int(Rnd() * (Max - Min + 1)) + Min
'oppure
'Cells(X + 1, 2).Value = Cells((Int(Rnd() * (Max - Min + 1)) + Min) + 1, 4)
'''''
Min = 11
Max = 20
Cells(3, 2).Value = "DOMANDA " & Int(Rnd() * (Max - Min + 1)) + Min
'''''
Min = 21
Max = 30
Cells(4, 2).Value = "DOMANDA " & Int(Rnd() * (Max - Min + 1)) + Min
'''''
Min = 31
Max = 40
Cells(5, 2).Value = "DOMANDA " & Int(Rnd() * (Max - Min + 1)) + Min
'''''
Min = 41
Max = 50
Cells(6, 2).Value = "DOMANDA " & Int(Rnd() * (Max - Min + 1)) + Min
'''''
Min = 51
Max = 60
Cells(7, 2).Value = "DOMANDA " & Int(Rnd() * (Max - Min + 1)) + Min
'''''
Min = 61
Max = 70
Cells(8, 2).Value = "DOMANDA " & Int(Rnd() * (Max - Min + 1)) + Min
End Sub
[Modificato da raffaele1953 09/07/2018 22:01]
Excel 2013