Удаление данных с помощью функции «Если»

Question

Возможно ли в Excel использовать vlookup или if функция, что если данные равны 0, то эта строка должна быть удалена? Например:

If cell B1=0 then DELETE cell b1, and if cell B1=1 then UNCHANGED

Answer 1

Попробуйте макрос Main():

Sub MAIN()
   Dim rng As Range, v As Variant
   Set rng = Range("B1")
   v = 0
   Call RowKiller(rng, v)
End Sub

Sub RowKiller(r As Range, v As Variant)
   If r.Value = v Then
      r.EntireRow.Delete
   End If
End Sub