Скрыть пустые и нулевые строки

Question

Я нашел/отредактировал существующий код VBA, чтобы создать макрос, который скрывает пустые строки. Он работал отлично, пока мне не пришлось редактировать электронную таблицу, чтобы по крайней мере одна ячейка в каждой строке имела формулу. Большинство из этих формул ничего не возвращают, но поскольку они технически не равны 0, мой существующий макрос не скрывает строки. Как изменить макрос ниже, чтобы скрыть как пустые строки, так и те, которые имеют только нулевые значения? Благодаря!

Sub HideEmpties() 
     Set r = ActiveSheet.UsedRange 
     nLastRow = r.Rows.Count + r.Row - 1 
     nFirstRow = r.Row 
     For n = nFirstRow To nLastRow 
     If Application.WorksheetFunction.CountA(Rows(n)) = 0 Then 
     Rows(n).EntireRow.Hidden = True 
     End If 
     Next 
    End Sub 

Answer 1

Вы можете попробовать изменить 0 к 1.

Answer 2

Небольшое изменение в коде:

Sub HideEmpties() 
     Set r = ActiveSheet.UsedRange 
     nLastRow = r.Rows.Count + r.Row - 1 
     nFirstRow = r.Row 

     For n = nFirstRow To nLastRow 
      If Application.WorksheetFunction.CountBlank(Rows(n)) = Columns.Count Then 
       Rows(n).EntireRow.Hidden = True 
      End If 
     Next 
End Sub 

Поскольку СЧИТАТЬПУСТОТЫ() лечит обнуляет, как заготовок.