【マクロ】A列最終行までを、カウンタ関数にて集計するには？=COUNTA(A2:A列最終行)

【やりたい事】
毎回、最終行が変わる、表のA2からA列最終行のデータが入っている所までの件数を数えたいです
カウンタ関数にて数えたいです。他、関数でもOK

最終行は、毎回、変わります（毎回、新しい表を作るコードの一部です）

例=COUNTA(A2:A10)　この場合は、A10行が最終行です

最終行は、定義しています Range(Cells(2, 1), Cells(LASTROW, 1))
名前は、LASTROWです。動きます。

以下のとおり、考えましたが、数字の２をかえしてしまいます


【考えたコード：常に２を返します】
Range(Cells(2, 13), Cells(LASTROW, 13)).Formula2 = "=trim(h2)"

ご存じの方、教えて下さい

No.3 回答者： taunamlz 回答日時： 2024/07/31 10:38

=COUNTA(A:A)-COUNTA(A1)

A1が空なら、
=COUNTA(A:A)
だけでもOKです。

A1に確実に何かが入るのなら
=COUNTA(A:A)-1
でもOKです。

No.2 回答者： fujillin 回答日時： 2024/07/31 10:34

こんにちは

例示のコードを見ると、なさりたいことがさっぱりわからなくなりますが・・

よくわかりませんけれど・・・
仮に、関数の場合で
　=COUNTA(A2:A1048576)
みたいなことをなさりたいのなら、
　n = Application.CountA(Range("A2").Resize(Rows.Count - 1))
で、同じ結果が得られると思います。

No.1 回答者： 銀鱗 回答日時： 2024/07/31 10:12

ええと、こういう考え方を知ってますか？

　999＝1000-1

・・・

A列全体を対象
　＝COUNTA(A:A)
A1セルだけを対象
　＝COUNTA(A1)

　('ω') あとは分かるよね。

CPUに余裕があるなら普通にこういう処理で充分です。