如何在Excel中查找空单元格以隐藏行

Question

我尝试在工作表中找到空单元格，然后隐藏完整的行。 我可以隐藏和取消隐藏行...但是我似乎还不了解正确找到单元格的概念。

我收到错误的参数计数或无效的赋值错误消息。

Sub hideAndSeek()
    Dim zellbereich As String

    For i = 7 To 43
        If Not IsEmpty(Worksheets("project").Range.Cells(i, 2)) Then
            zellbereich = i & ":" & i
            Rows(zellbereich).Select
            Selection.EntireRow.Hidden = False
        End If
    Next
End Sub

谢谢你的帮助！

Answer 1

这不是引用工作表单元格的正确方法（这将导致运行时错误）：

Worksheets("project").Range.Cells(i, 2)

它看起来应该像这样：

Worksheets("project").Cells(i, 2)

---

无论如何，可以轻松完成此任务。 这是执行此操作的代码：

Sub hideAndSeek()
    Dim rng As Excel.Range
    Dim rngEmpty As Excel.Range
    '------------------------------------------------------------

    With Worksheets("project")
        Set rng = Range(Cells(7, 2), Cells(43, 2))
        rng.SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
    End With

End Sub

我假设您只想检查范围B7：B43，因为这是您的原始代码所建议的。 如果不正确，则可以更改此部分：

        Set rng = Range(Cells(7, 2), Cells(43, 2))

对于其他范围（请注意， Cells(7, 2)表示B列和第7行，而不是相反）。