Schleife durch die Spalte, die Zellen zählt, die nicht leer sind

Question

Ich versuche, eine Spalte durchzulaufen und die Anzahl der Zellen zu zählen, die nicht leer sind. Der Prozess, der es folgen muss, ist:

1. Start bei erster Zelle und zählt nicht leere Zellen bis zu zwei aufeinanderfolgende leeren Zellen erhalten

2. STOPP an dieser Stelle und gibt den Wert der Zählung einen Zelle auf dem Blatt

3. beginnen wieder bei der nächsten nicht leeren Zelle Count und wiederholen 1. und 2., bis Sie das Ende der Daten erreicht haben

Extra: wenn ich auch das Datum in der Zeile zurückgeben könnte, die sich auf das erste nicht leere und das erste Leerzeichen bezieht (ab dem Punkt, an dem Sie die ersten beiden leeren Zellen finden)

Wenn Sie weitere Informationen benötigen, fragen Sie bitte . Ich nehme an, VBA wäre viel besser dabei?

Danke.

-Code so weit ist.

Sub Test1()

Range ("I3") Wählen Sie

Do Until IsEmpty (Active) und IsEmpty (ActiveCell.Offset (1, 0))

Dim iVal As Integer

iVal = Application.WorksheetFunction.CountIf (Range ("I: I"), "TRUE")

ActiveCell.Offset (2, 0) .Select

Loop 

End Sub

Answer 1

Wie Sie erwähne ich VBA vermuten viel besser wäre dies zu tun? Ich gehe davon aus, dass Sie eine Formel Lösung betrachten würden.

Unter der Annahme, Daten in ColumnA mit einer einzigen leeren Zelle ausgehend in B2:

=IF(AND(ISBLANK(A2),ISBLANK(A3)),COUNTA(A$1:A2)-SUM(B$1:B1),"") 

bis 0 erscheint nach unten gezogen.