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

Answer 2

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

Answer 3

Берет и копирует. Первый десяток в прямом порядке, второй - в обратном. Не знаю, как еще пояснить работу обычного цикла...

Answer 4

Становитесь в макрос курсором (в любое место) и по клавише F8 выполняете строки по одной за нажатие. И смотрите каждый раз на лист Экселя. Все и увидите.