Вывести последовательность с положительными числами - 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

Оцени полезность:

8   голосов , оценка 4.125 из 5
Похожие ответы