Скрытие строки, если есть данные во всех ячейках строки

Question

Я искал высоко и низко, но не мог найти ответ, подходящий для моей проблемы. Мне было интересно, если кто-то может помочь мне выяснить код для ..

Если все ячейки в строке содержат данные, то скрыть строку; если в строке есть пустая ячейка, не скрывайте ее. Повторите для всего именованного диапазона.

Надеюсь это имеет смысл!

Спасибо!

Answer 1

Что-то вроде этого:

Sub hideFullRow()

Dim rng As Range
Dim rw As Range
Dim c As Range
Dim hide As Boolean

hide = True

Set rng = Range("Name")
For Each rw In rng.Rows
    For Each c In rw.Cells
        If IsEmpty(c) Then 
            hide = False
            exit For
        End If
    Next
    rw.EntireRow.Hidden = hide
Next

End Sub