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

您的代码稍有不同：

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

因为 COUNTBLANK（）会将空格视为空格。

Answer 2

您可以尝试将0更改为1。

隐藏空行和空行

2 个答案: