Vвa. использовать оператор цикла do. в диапазоне ячеек a1: b10 находятся 20 чисел. составьте программу, которая копирует данные числа в колону c (клетки от c1 до c20) следующим образом: - числа из ячейки a1 скопировать в ячейку c1; - числа из ячейки b1 скопировать в ячейку c2; - числа из ячейки a2 скопировать в ячейку c3; - числа из ячейки b2 скопировать в ячейку c4; - числа из ячейки a3 скопировать в ячейку c5; и так далее (цифры с колоны а надо скопировать колоны с очередность нечётных чисел, но цифры с колоны b надо копировать колоны с в очередность чётных.)
Sub aaa()
For i = 1 To 10
Cells(2 * i - 1, 3) = Cells(i, 1)
Cells(2 * i, 3) = Cells(i, 2)
Next i
End Sub
А так пишут с циклом Do, видимо, чтобы длиннее было
Sub aaa()
i = 1
Do While i <= 10
Cells(2 * i - 1, 3) = Cells(i, 1)
Cells(2 * i, 3) = Cells(i, 2)
i = i + 1
Loop
End Sub