Excel VBa：空のセルの後の行数に基づいて行を非表示にするにはどうすればよいですか？

Question

私はVisual Basicを初めて使いました。あなたの助けが必要です。私がする必要がどのような

Image

は、私は2つの空の行の後にした後、すべての空行を非表示にすることを可能にするVBAコードでボタンを作ることです： 私はこの例を持っているエクセル上でこのワークシートを持っています最後に書き込まれたセル。

Image2

は私が作ることができ、すべての空のセルが消え、簡単です：それはこのようなものでなければなりません。私は空のセルをすべて消滅させたくありません。空のセルは、最後に書き込まれたセルの後の2つの空のセルの後にあります。私がそれを十分に明確にしているかどうかはわかりません。

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