循环遍历列的非空白单元格

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出现。