循環遍歷列的非空白單元格

Question

我試圖循環遍歷列並計算非空白單元格的數量。它必須遵循的過程是：在第一個單元格

1. 開始和計數非空白單元格，直到你到兩個連續的空白單元格

2. 停止在這一點上和計數的值返回到在紙張上的細胞

3. 開始在接下來的非空白單元格重新計數，重複1和2，直到你已經達到了數據的結尾

額外：如果我還可以返回與第一個非空白相關的行中的日期以及第一個空白（從您發現前兩個空白單元格的位置開始）

如果您需要更多信息，請詢問。我認爲VBA會做得更好？

謝謝。

到目前爲止的代碼是：

子的Test1（）

範圍（ 「I3」）選擇

做，直到爲IsEmpty（ActiveCell）和爲IsEmpty（ActiveCell.Offset（1,0） ）

昏暗IVAL作爲整數

IVAL = Application.WorksheetFunction.CountIf（範圍（ 「I：I」）， 「TRUE」）

ActiveCell.Offset（2,0）。選擇

Loop 

末次

Answer 1

至於你提到我相信VBA會在做這更好？我假設你會考慮公式解決方案。

假設數據是在開始ColumnA與單個空白單元格，在B2：

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

拖累直到0出現。