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