Помогите решить лабу по инфе (массивы через vba)

Question

VBA 
в массиве a(n) поменять местами элементы стоящие на нечетных местах с элементами стоящими на четных местах. Элементы исходного массива записать, начиная с ячейки a2 рабочего листа "лист1" .вывести новый массив начиная с ячейки a5.

Оля Смольянинова · Accepted Answer

sub ppp() 
for ii= 0 to 10 step 2 
cells(5,ii+1)=cells(2,ii) 
cells(5,ii)=cells(2,ii+1) 
next ii 
end sub