Одномерный массив в VBA

[G-Kyller]

в коде 3 цикла:
1 - забивает случайные значения в массив
2 - меняет половины местами
3 - выводит на лист

ставишь 3 цикл перед 2 и он выводит не измененные данные
или вообще так: 1 3 2 3(только в ЛистN.Cells(i+1, 2).Value = massiv(i) 2 меняешь на разные цифры)

P.S. ЛистN.Cells(2, i+1).Value = massiv(i) - будет выводит значения в строку

[Keeper!]

Всё разобрался. Спасибо за помощь.

Sub Massiv2()
Dim massiv(16) As Integer
'Заполняем массив
For i = 0 To 15 Step 1
  massiv(i) = Int(41 * Rnd - 20)
ЛистN.Cells(i + 1, 1).Value = massiv(i)
Next i
Dim perem As Integer
'Меняем местами
For i = 0 To 7 Step 1
  perem = massiv(i)
  massiv(i) = massiv(i + 8)
  massiv(i + 8) = perem
Next i
'Выводим
Sheets("ЛистN").Select
For i = 0 To 15 Step 1
  ЛистN.Cells(i + 1, 2).Value = massiv(i)
Next i
End Sub