Подскажите пожалуйста как вывести генерацию случайных чисел не в столбец L, а в столбец С
Код |
---|
Sub io() Dim x%(1 To 44, 1 To 1), j%, i% With New Collection For i = -22 To 21 If i <> 22 Then .Add i Next Randomize For i = 1 To 44 j = CInt((44 - i) * Rnd + 1) x(i, 1) = .Item(j) .Remove (j) Next [l1].Resize(44) = x End With End Sub |