Developing.ru

Код: Выделить всё

  Dim R As Range, RngEmpty As Boolean
  Set R = Range(".......")
   
  For Each ACell In R
    RngEmpty = IsEmpty(ACell.Value) Or ACell.Value = 0
    If Not RngEmpty Then Exit For
  Next
   
  If RngEmpty Then R.EntireRow.Delete

Код: Выделить всё

    Dim R As Range, n As Long
    Set R = Range("------")
    For n = R.Row + R.Rows.Count - 1 To R.Row Step -1
        If Application.WorksheetFunction.CountA _
            (Range(Cells(n, R.Column), Cells(n, R.Column + R.Columns.Count - 1))) = 0 Then _
            Rows(n).Delete
    Next n

Код: Выделить всё

    Dim R As Range, sR As Range, n As Long
    Set R = Range("-----")
    For n = R.Row + R.Rows.Count - 1 To R.Row Step -1
        Set sR = Range(Cells(n, R.Column), Cells(n, R.Column + R.Columns.Count - 1))
        If Application.WorksheetFunction.CountA(sR) - _
           Application.WorksheetFunction.CountIf(sR, "=0") = 0 Then _
           Rows(n).Delete
    Next n