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