Доброго времени уважаемые форумчане, прошу подсказать как подкорректировать макрос чтобы он скрывал и отображал строки второго столбца, но только учитываться должны не только пустые ячейки, но и нулевые. Заранее благодарен
Код |
---|
Sub Скрыть()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim LastRow, ST_A() As Variant
Dim ii As Integer
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
ReDim ST_A(LastRow, 1)
ST_A = Range(Cells(1, 1), Cells(1 + LastRow - 1, 1))
For ii = 1 To LastRow
If ST_A(ii, 1) = 0 Or ST_A(ii, 1) = "" Then
Rows(ii).Hidden = True
End If
Next
MsgBox "ГОТОВО"
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub |