1

挿入または削除に関係なく、正確な行数 (つまり、常に 100 行) を保持し、その行内でカウントする式または方法はありますか? 絶対参照を試しましたが、挿入と削除が影響します。

私が今持っている唯一の方法は、すべての挿入と削除が完了した後で数式を書き直すことです。

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

End Sub
4

2 に答える 2

3

私は使用しますOFFSET：

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

カウントを終了するセルはどこA1にありますか。この数式は、列の高さを別のセルに依存させる場合に特に便利です。たとえば、定数100を使用する代わりに、セルA2の列の高さを維持したい場合は、次のように実行できます。

=COUNTA(OFFSET(H1, 4, 0, A2, 1))
于 2013-03-13T18:07:57.043 に答える
2

これは、挿入と削除に関係なく、A2 から A101 の空白でないセルの数を返します。

=COUNTA(INDIRECT("A2:A101"))
于 2013-03-13T17:57:54.280 に答える