Excel VBa: Wie Zeilen auf der Anzahl der Zeilen nach leeren Zelle ausblenden?

Question

Ich bin neu in Visual Basic und ich brauche deine Hilfe. Ich habe dieses Arbeitsblatt in Excel, die dieses Beispiel haben:

Image

Was ich tun müssen, ist eine Schaltfläche mit einem VBA-Code zu machen, die mir alle leeren Zeilen, nachdem die beiden leeren Zeilen verbergen können nach die letzte geschriebene Zelle. Es sollte wie folgt sein:

Image2

ich alle leeren Zellen verschwinden lassen kann, was einfach ist. Die Sache ist, ich möchte nicht alle leeren Zellen verschwinden lassen, nur die leeren Zellen nach den zwei leeren Zellen nach der letzten geschriebenen Zelle. Ich weiß nicht, ob ich es klar genug mache.

Answer 1

Vielleicht so etwas? (vorausgesetzt, Sie haben weniger als 1000 Zeilen)

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