ユーザー定義関数で最終セルの行数取得

マクロ講座47回　

ユーザー定義関数 Excel 2013　マクロ講座

Excel?最終セルが何行目かを表示するユーザー定義関数をつくる

現在作成している表がいったい何行あるのか、知りたい時があります。

作成している表の最後に飛ぶには、Ctrl+ ↓（下矢印 キー ）で移動します。

何もないところで、Ctrl+ ↓（下矢印 キー ）を押すと、最終行に移動します。

最初から、何も入力されていない列でCtrl+ ↓（下矢印 キー ）を押せば、一発で最終行に移動します。
さて、わざわざ移動せずに、セルに最終行は何行目と表示したい場合にはどうしたらよいでしょう。

最終行を表示する関数はないので、ユーザー関数を作成しましょう。

最終行が何行かをセルに表示したい

VBEを起動して、新しいモジュールを作成します。
VBEのメニューバーより、挿入をクリックして、標準モジュールをクリックします。

関数の定義
最終行を取得する関数を最終行と定義します。
引数につかう列名を列と定義します。
コードを直接次のように入力します。

Function 最終行(列 As String)
最終行 = Cells(1048576, 列).End(xlUp).Row
End Function

Function 最終行(列 As String)
最終行 = Cells(65535, 列).End(xlUp).Row
End Function

ユーザー定義関数を使う

最終行を取得したいセルに
=最終行("B")
と入力します。
Bは、データの入力されている列名です。

すると、図のように最終行を取得して、47と表示しました。

Function lastrow(a As String)
lastrow = Cells(1048576, a).End(xlUp).Row
End Function