VBA入門
最終行の取得（End,Rows.Count）

エクセルは表計算ソフトです、つまり縦横の表を扱います、
データは横に項目があり、縦に項目に対するデータが入っている事が一般的です。
しかし、
そのデータ行数は決まった行数ではない事が普通です。
データは増えたり減ったりするものです。
そして、
マクロVBAでは、表の全行に対して処理することが多くなります。
しかし、
表の全行に対して処理する為には、データの最終行が分からないと、
毎回、最終行の数値を変更しなければならなくなり、そんな面倒な事はしてられません。
では、最終行はどのように取得すればよいでしょうか。
以下の表で説明します。

マクロVBAでは、A2～A11まで処理したいですよね。
そして、
この行数が増えても、VBAは変更すること無く使えるようにしたいです。
そこで、
データの入っている最後の行数を、VBAで自動的に取得したいということになります。

そもそも手作業で、表データの一番下に移動する時はどのような操作をしていますか？
手操作で、A列の最終行に移動する場合は、
A1セルが選択されている状態で、
Ctrl + ↓
これで、A11に移動できます。
これをマクロVBAでは、
Cells(1, 1).End(xlDown)
このように書きます。
しかし、途中に空欄のセルがある場合、

この場合は、Ctrl + ↓ではA6セルになってしまいます。
これは都合が悪いですね。

表の途中に空欄が不特定に入っている場合は、
いったんシートの一番下（シートの最終行）のA列（A1048576）セルに移動してから、
Ctrl + ↑
とやれば、A11に移動できます。
これをマクロVBAでは、
Cells(Rows.Count, 1).End(xlUp)
このように書きます。
Rows.Count

つまり、
シートのA列の最終行から、上に向かって、Ctrl+↑で移動している訳です。
このEndは、Rangeオブジェクトのプロパティで、Rangeオブジェクトを返します。
※この表現はとても分かりづらいです、このページ最後の方で説明しています。

Endプロパティの構文は、
End(Direction)
Directionに指定するものは、

Endプロパティで取得したままの、
Cells(1, 1).End(xlDown)
これや
Cells(Rows.Count, 1).End(xlUp)
これらは、最後のセル（行数ではなく、セルそのもの）を表しています。
つまり最後のセルのRangeオブジェクトになります。
つまりそのままでは行数ではなく、セルに入っている値(Value)が取得されてしまいます。
セルの行数（行位置）を取得するには、
Cells(1, 1).End(xlDown).Row
や
Cells(Rows.Count, 1).End(xlUp).Row
このように、.Rowを指定します。
これで、データの最後の行数を取得できることになります。
この、.Rowは、Rangeオブジェクトのプロパティで、その行位置を返します。
上記例なら、11が返されます。
返されるとは、つまりは、
Cells(1, 1).End(xlDown).Rowは11と同じだと言う事です。
最終行を取得する場合は、
まずは
Cells(Rows.Count, 1).End(xlUp).Row
または
Cells(1, 1).End(xlDown).Row
これは、定型文として丸暗記して下さい。

Cells(Rows.Count, 1).End(xlUp).Row
セルA1048576からCtrl+↑のセルの行数
このVBAコードは長いので、一度書いたものをコピペで使うようにして良いですが、
最初の何回かはタイピングして覚えてください。
そうすることで、VBAになじむことができるようになります。
この一文には多くのプロパティを含んでいて、今後の学習に必ず役に立ってきます。

この言葉は非常に分かりづらいものとなっています。
今はまだ理解できなくても構いません。
詳しい説明は今後少しずつ説明しますので今回はさわりだけ説明しておきます。
プロパティは、オブジェクトの属性
このような説明をしてきました。
そのプロパティがオブジェクトを返す。
ちょっと解りづらいと思います。
ただ、これを詳しく説明するには非常に多くの事を説明しなければなりません。

今は、プロパティには、値の設定・取得をするものと、
オブジェクトを返すプロパティがあると言う事だけ知っておいて下さい。
EndはRangeオブジェクト返すプロパティであるということです。

表の最下行が、非表示行またはフィルタで絞り込まれて非表示になっている場合、
手動のCtrl+↑でも同じですが、可視セル（見えているセル）の最終行となってしまいます。
このような場合は、全行表示およびフィルタの絞り込みを解除してから最終行の取得をしてください。
そのような方法ができない場合は、下記ページの別の方法を使用してください。

最終行の取得は、マクロVBAにおいて基本かつ重要なものです。
他の解説ページも是非お読みください。
最終行・最終列の取得方法（End,CurrentRegion,SpecialCells,UsedRange） 第6回.表の先頭から最終行まで繰り返す（ForとEnd(xlUp).Row） Rangeの使い方：最終行まで選択を例に 最終行の判定、Rangeオブジェクトと配列、高速化の為に

同じテーマの記事
新着記事
アクセスランク