Question

我是Visual Basic的新手，我需要你的帮助。我在Excel上有这个工作表，有这个例子：

我需要做的是创建一个带有VBA代码的按钮，允许我在最后写入的单元格之后的两个空行之后隐藏所有空行。它应该是这样的：

我可以让所有空单元格消失，这很容易。事情是我不想让所有空单元格消失，只是在最后写入单元格后的两个空单元格之后的空单元格。我不知道我是否说得够清楚。

Answer 1

也许是这样的？（假设你的行少于1000行）

Sub test()

    i = 1

While i < 1000

    If Cells(i, 1) = "" And Cells(i + 1) = "" Then
    i = i + 2
    While Cells(i, 1) = "" and i < 1000
        Cells(i, 1).EntireRow.Hidden = True
        i = i + 1
    Wend

    End If

    i = i + 1
Wend

End Sub

Excel VBa：如何根据空单元格后的行数隐藏行？

1 个答案: