Вывести последовательность с положительными числами - VBA
Формулировка задачи:
Создайте макрос в Excel, который из последовательности чисел,
расположенных в ячейках A1:A10, выводит последовательность с
положительными числами в ячейки B1:B10.
Решение задачи: «Вывести последовательность с положительными числами»
textual
Листинг программы
Sub тема1() Dim i As Integer Dim j as integer j = 1 For i = 1 To 10 If (Worksheets("Лист1").Cells(i, 1) > 0) Then Worksheets("Лист1").Cells(j, 2) = Worksheets("Лист1").Cells(i, 1) j = j + 1 End If Next i End Sub