VBA Excel задача

[Slicker]

Задание: Отрицательные числа в клетках диапазона В2:В20 заменить нулями. В клетке С2 подсчитать количество замен.

Вот что написал (но что-то не работает, не могу понять что):

Sub pr2()
For i = 2 To 20
If Range(i, 2) < 0 Then
Cells(i, 2) = 0
End If
Next i

For z = 2 To 20
If Range(z, 2) = 0 Then
k = k + 1
End If
Next z
Cells(2, 3) = k
End Sub

При попытке запустить, выдает ошибку (скрин прилагаю)...

[IgorGO]

пробуйте так:

Sub pr2()
  k = 0
  For i = 2 To 20
    If Cells(i, 2) < 0 Then
      Cells(i, 2) = 0
      k = k+1
    End If
  Next i
  Cells(2, 3) = k
End Sub

1. Ошибка, видимо возникала здесь: If Range(i, 2) < 0 Then
2. Нельзя считать ячейки с нулями в следующем цикле. Если где-то изначально был 0 - то эта ячейка войдет в сумму как замена, а замены-то не было.

[Slicker]

Благодарю =) Работает! Ошибка глупая а насчет подсчета нулей не подумал...