Удалить пустые строки.

[kent4]

В столбце "цена" есть значения "0" - необходимо с помощью макроса удалить все строки где цена "0"

[kent4]

Неужели никто не может помочь=(

[Serge_Bliznykov]

так, навскидку...

Sub DeleteLinesWithEmptyPrice()
Dim i As Long, Row1 As Long, Row2 As Long
Application.ScreenUpdating = False
Application.EnableEvents = False
Row1 = ThisWorkbook.ActiveSheet.UsedRange.Row
Row2 = Row1 + ThisWorkbook.ActiveSheet.UsedRange.Rows.Count - 1
For i = Row2 To Row1 Step -1
  If (TypeName(Cells(i, 3).Value) = "Double" _
          And (Cells(i, 3).Value = 0)) Then
     Cells(i, 1).EntireRow.Delete
  End If
Next i

Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

[kent4]

Оно самое - спасибо большое