我试图循环一列,并计算非空白的单元格数 . 它必须遵循的过程是:
-
从第一个单元格开始,计算非空白单元格,直到找到两个连续的空白单元格
-
此时停止并将计数值返回到工作表上的单元格
-
在下一个非空白单元格中再次开始计数并重复1.和2.直到您到达数据末尾
额外:如果我还可以返回与第一个非空白相关的行中的日期以及第一个空白(从找到前两个空白单元格的点)
如果您需要更多信息,请询问 . 我认为VBA会做得更好吗?
谢谢 .
到目前为止的代码是:
子测试1()
范围( “I3”) . 选择
Do Until IsEmpty(ActiveCell)和IsEmpty(ActiveCell.Offset(1,0))
昏暗的iVal作为整数
iVal = Application.WorksheetFunction.CountIf(Range(“I:I”),“TRUE”)
ActiveCell.Offset(2,0) . 选择
Loop
结束子
1 回答
正如你所提到的,我认为VBA会做得更好吗?我假设你会考虑一个公式解决方案 .
假设数据在ColumnA中以单个空白单元格开头,在B2中:
拖下来直到
0
出现 .