Excel関数で範囲に対して入力データの最終行番号を取得したい

Question

お世話になっております。
ある表にデータ入力をしていただいているのですが、何行入れたかをカウントする際、VBAではなく関数を使用して件数を表示したいと思っています。データ入力先頭行番号はわかっていますので、最終行番号を取得し、件数を表示しようと思うのですが、私の知識では必ずデータが入っているような決まった列を使用して最終行番号を取得する方法しかわかりません。

以下のような表の範囲の中で最終行番号　７が取得できる関数はありますでしょうか？
ご教示のほどよろしくお願いいたします。

Answer 1

検索したらそれっぽいのがあったので回答します。

5000行まで各列に書式設定がしておりまして...

ということから、範囲は決まっていると判断すると以下のHPの内容でいけるのではないでしょうか。

【詳細解説】エクセル関数で最終行の行番号・内容を取得する

AからE列までで5000行だとすると

=MAX(INDEX((LEN(A1:E5000)>0)*ROW(A1:E5000),0))

になりますね。

Comments

[poporon7]

ありがとうございます！試してみたところ思った通りの結果となりました。
教えていただいたリンク先の説明をよく読んでこの関数を使わせていただきます。
大変助かりました。ご回答いただき感謝いたします。

Answer 2

これで要求にあってます？
以下を標準モジュールではなくsheetのほうにコピペして使ってみて下さい。

Sub aaa()
Dim r As Range

Set r = UsedRange ' 使用している範囲を取得

MsgBox (r.Rows.Count)

End Sub

Comments

[poporon7]

ご回答いただきありがとうございます。
説明が足りませんでしたが、5000行まで各列に書式設定がしておりまして、UsedRangeは使えないのです。
また、ボタンを押すなどのイベントを使わずに入力したと同時に件数がわかるようにしたいので、ワークシート関数が簡単かなと思っています。そこで以上のような質問をさせていただきました。
よろしくお願いいたします。