Создать кнопку скрыть/отобразить строки с нулевыми значениями в ячейках

[ЛарисаАл]

Создать кнопку скрыть/отобразить строки с нулевыми значениями в ячейках

[EducatedFool]

это приказ?
тут не армия, - приказы обычно игнорируются

[ЛарисаАл]

Добрый день!
Это не приказ, это - просьба!
Извините, что так получилась!!!
Первый раз обратилась и так опростоволосилась

[IgorGO]

1. отмечаете строку 8 и вниз всю таблицу
2. Данные, Фильтр
3. Щелчек по значку фильтрации в колонке G
4. удаляете птичку у нуля
5. ок

все. строки с нулями зафильтрованы

[Aleksandr H.]

Сообщение от ЛарисаАл

Первый раз обратилась и так опростоволосилась

К Гуглу сперва обращайтесь, он не такой категорический и в первых 5-10 ответах на запрос вашей темы получаются вполне сносные ответы

Sub HideRows()
    Dim lastRow As Integer
    Dim r As Integer
    Application.ScreenUpdating = False
    With Sheets("1")
        lastRow = .Cells(.Cells.Rows.Count, 2).End(xlUp).Row
        For r = 8 To lastRow
            Rows(r).Hidden = Cells(r, "G").Value = 0
        Next
    End With
    Application.ScreenUpdating = True
End Sub