VВA. Использовать оператор цикла For. В диапазоне ячеек A1: A20 находятся 20 чисел....

Question

VВA. Использовать оператор цикла For. В диапазоне ячеек A1: A20 находятся 20 чисел. Составьте программу, которая копирует данные числа в колону B (клетки от B1 до B20) следующим образом:
- Числа из ячейки A1 скопировать в ячейку B1;
- Числа из ячейки A20 скопировать в ячейку B2;
- Числа из ячейки A2 скопировать в ячейку B3;
- Числа из ячейки A19 скопировать в ячейку B4;
- Числа из ячейки A3 скопировать в ячейку B5;
- Числа из ячейки A18 скопировать в ячейку B6;
и так далее (в начале надо скопировать первое число, потом последнее, потом второе число, потом предпоследние, потом третье и тд.).

Answer 1

Sub aaa()
    For i = 1 To 10
        Cells(2 * i - 1, 2) = Cells(i, 1)
    Next i
    For i = 20 To 11 Step -1
        Cells((21 - i) * 2, 2) = Cells(i, 1)
    Next i
End Sub

Comments

Не мог ли бы вы на словах пояснить как этот код работает?