计算确切的范围

Question

是否存在保持精确行数（即总是100行）并在所述行内计数的公式或方法 - 无论是插入还是删除？我尝试过绝对引用，但插入和删除会影响它。

我现在唯一的方法是在完成所有插入和删除后重写公式。

Sub ExactRowsCount()
'
' ExactRowsCount Macro
'
Range("H1").Select
ActiveCell.FormulaR1C1 = "=COUNTA(R[4]C:R[104]C)"
Range("H2").Select

End Sub

Answer 1

我会使用OFFSET：

=COUNTA(OFFSET(A1,4,0,100,1))

其中A1是您希望计数结束的单元格。如果您希望色谱柱高度取决于另一个细胞，则此公式可能特别方便;例如，如果要将列高保持在单元格A2而不是使用常数100，则可以执行以下操作：

=COUNTA(OFFSET(H1, 4, 0, A2, 1))

Answer 2

无论插入和删除如何，这都会将A2中非空单元格的数量返回到A101：

=COUNTA(INDIRECT("A2:A101"))