例えば累積して入力する仕様であれば「MAX関数」で対応できますが
単体で数値を入力している場合は「MAX・MIN関数」を使用しても求めることができません。

そこで今回は関数を活用して右端・下のデータを抽出する方法についてまとめています。

それでは見ていきましょう。

■数値の最終列・行を求める

・関数を使用して最終列・行を求める

今回紹介する方法はLOOKUP関数を活用する方法です。
様々な方法がありますが、この方法が1番シンプルで簡単です。

では見本を見てみましょう。

4月から3月までの売り上げを3行目に入力しているシートになります。
今回は8月まで入力されているので「B7」の「最新の売り上げ」に8月のデータが出力できればゴールです。

ではLOOKUP関数の仕組みを見てみましょう。

=LOOKUP(検索値,検索範囲,[対応範囲])

通常のLOOKUP関数は検索範囲に検索値が当てはまる場合、対応範囲の結果を出力する関数になっています。
しかしLOOKUP関数にはあまり知られていない機能が2つあります。

マイクロソフト公式の記事を引用してみてみましょう。

①LOOKUP では、検査値が見つからない場合、検査範囲内で検査値以下の最大値が、一致する値として使用されます。
②検査値 が検査範囲に含まれる最小値よりも小さい場合は、LOOKUP では、エラー値#N/A が返されます。

ここで注目してほしいのは①の「検査値が見つからない場合、検査範囲内で検査値以下の最大値が、一致する値として使用」の部分です。

つまり②のエラーを回避するため、想定される数値以上の数値を検索値としてLOOKUP関数を使用すれば、一致する検索結果は見つからないため、①の条件を満たし、右端・下のデータを出力するといった仕組みです。

では関数に当てはめてみましょう。
今回は「9999」を超える売り上げは存在しないとし、検索値を「9999」にします。

範囲は入力する「C3からN3」つまり「C3:N3」です。

では打ち込んでみましょう。結果はこのようになります。

C3からN3で一番右端の「2315」を出力することができました。
最終行のデータを求める際も同じ考え方です。

では見本で検索値を「2000」にした例を見てみましょう。

下から順に検索していきますが検索値は「2000」なので
8月の「2315」、7月の「7254」をスルーして「2000」以下に当てはまる
「1547」が出力されました。これはこれで活用法がありますね。

・よくみる検索値「10＾10」の意味と活用法について

ある記事では検索値を「10＾10」にすればいいという内容を結構見かけました。
こちらの方法は「10乗を10回繰り返す」といった意味であり、「10000000000」を意味しています。

打ち込む文字も5文字で「10000000000」以下を網羅できるのでとても便利です。
しかし注意点として「10000000000」以上の数値には対応できません。

そこでLOOKUPを活用して右端・下の数値を抽出する一番美しい式はこのようになります。

再度、関数の仕組みを見ましょう。

=LOOKUP(検索値,検索範囲)
置き換えると
=LOOKUP(MAX(C3:N3)+1,C3:N3)

説明として検索値をMAX関数で最大値を求め、「+1」することにより
検査値が検索値を上回ってしまい、スルーするといった不具合がなくなります。

もちろん最大値の目途がついている場合はその数字を検査値にしてもいいですし
「99＾99」と検索値を膨大な数値にしても構いません。

■文字の最終列・行を求める

今度は文字の最終列・行を求めます。
先ほどは「=LOOKUP(検索値,検索範囲)」に対して
「=LOOKUP(考えられる最大値,検索範囲)」と合わせました。

しかし文字では数値の最大値を打ち込んでも検知しません。

では先ほどの見本に文字を打ってみましょう。

二万、四万などは文字のため最大値を検知できずエラーになっていしまいました。
では考えられる最大値には何を当てはめればよいのでしょうか。

実は文字にも大きさの順があります。
その文字は「伸ばし棒のー」です。半角ではないので注意してください。

では関数に当てはめてみましょう。
「=LOOKUP(“ー”,C3:N3)」

では打ち込んでみたいと思います。

結果はこのようになります。

最終列のデータである「八万」を出力することができました。

しかしこの関数式では注意点があります。
「－」は文字の最大値でありますが、先頭に「－」が続いた場合は最大値を上回ってしまうため検知できなくなります。

その場合は「－」を2つ並べることでーが先頭についた最大値を上回ることができます。
「=LOOKUP(“ーー”,C3:N3)」

いたちごっこになりますが
「ー」が先頭に2つ並んだ場合は検知できなくなりますが「ー」を3つ並べれば大丈夫です。
あまりないとは思いますが、、、

補足として行方向の最終行の検出も可能です。

■まとめ

いかがだったでしょうか。
フォーマットがあった状態で最新データを出力したい場合にとても便利な方法です。
是非参考にしてみてください。

それでは次回の記事でお会いしましょう。

今回はマクロVBAで最終列または行番号を取得する方法を紹介します。
たとえばFor　Toで繰り返す回数を決まっていれば問題はありませんが、
データ数が不明な場合は困ってしまいますよね。

データ数だけ繰り返したいときは最終行・列を知る必要があります。
さらに最終行・列にデータを追加していくシステムには必須の機能です。

今回はそんな最終行・列をマクロVBAで求める方法についてまとめました。

それでは見ていきましょう。

■プログラムの流れ

最終行の反映先 = 開始位置.End(データ型).Row
最終列の反映先 = 開始位置.End(データ型).Column

■最終行を求める

・セルの先頭から最終行を求める

では早速、最終行を求めてみましょう。
下図の見本をご覧ください。

A列に数値が並んでいます。
今回はA列の最終行を求めて「Ｃ3」に出力してみましょう。

プログラムの構造はこのようになります。

最終行の反映先 = 開始位置.End(データ型).Row

反映先は結果を表示する「Ｃ3」になります。
開始位置はデータの開始位置の「A1」ですね。
データ型は下方向に最終行を求めたいので「xlDown」となります。

それではプログラムに置き換えてみましょう。
プログラムではこのようになります。

Range(“C3”) = Range(“A1”).End(xlDown).Row

では下記のマクロVBAを走らせてみましょう。

Sub 最終行の取得()

Range(“C3”) = Range(“A1”).End(xlDown).Row

End Sub

結果はこのようになります。

最終行を求めることができました。

・最終行を求める開始位置を変更する

ではA列に隙間が空いた場合を見てみましょう。

先ほどのプログラムを実行すると結果は「14」と変わりません。
これは「A1」から開始してデータが無い行までを求めるので、一番近い「14」を算出します。
なので実際の最終行の「18」を表示したい場合は開始位置を変更することが必要です。

では開始位置を「A16」からにしてみましょう。

Sub 最終行の取得()

Range(“C3”) = Range(“A16”).End(xlDown).Row

End Sub

結果はこのようになります。

「A16」からの最終行を算出した「18」が結果として表示されました。

・変数に最終行を格納する

ちなみに最終行を求めた結果は変数にも格納が可能になります。
下の見本をご覧ください。

Sub 最終行の取得()

Dim EndRow As Variant

EndRow = Range(“A1”).End(xlDown).Row

End Sub

このプログラムでは変数名「EndRow」に最終行を格納することが可能です。
もちろんこの数値を活用してセルを選択したり、
For Toなどといったものにも活用することもできます。

■最終列を算出する

・セルの先頭から最終列を求める

今度は最終列を求めてみましょう。
下図の見本をご覧ください。

１行目が何列までデータがあるか求めていきます。
今回は最終列を求めて「B4」に出力してみましょう。

プログラムはこのようになります。

最終列の反映先 = 開始位置.End(データ型).Column

反映先は結果を表示する「B4」になります。
開始位置はデータの開始位置の「A1」ですね。
データ型は下方向に最終行を求めたいので「xlToRight」となります。

それではプログラムに置き換えてみましょう。
プログラムではこのようになります。

Range(“B4”) = Range(“A1”).End(xlToRight).Column

では下記のマクロVBAを走らせてみましょう。

Sub 最終列の取得()

Range(“B4”) = Range(“A1”).End(xlToRight).Column

End Sub

結果はこのようになります。

データは「Ｊ列」つまり「１０列目」までデータがあるので
B4には「10」が出力されました。

・最終列を求める開始位置を変更する

では１行目のデータに隙間が空いた場合を見てみましょう。

４列目が空白なので「3」が出力されました。
これは「A1」から開始してデータが無い行までを求めるので、一番近い「3」を算出します。
なので実際の最終行の「10」を表示したい場合は開始位置を変更することが必要です。

では開始位置を「E1」からにしてみましょう。

Sub 最終列の取得()

Range(“B4”) = Range(“E1”).End(xlToRight).Column

End Sub

結果はこのようになります。

「E1」から右方向に最終列を算出した「10」が結果として表示されました。

・変数に最終列を格納する

ちなみに最終列を求めた結果は最終行と同様、変数にも格納が可能になります。
下の見本をご覧ください。

Sub 最終列の取得()

Dim EndColumn As Variant

EndColumn = Range(“E1”).End(xlToRight).Column

End Sub

このプログラムで行くと変数名「EndColumn」に最終列を格納することが可能です。
もちろんこの数値を活用してセルを選択したり、
For Toなどといった繰り返し処理の変数としても活用することもできます。

■空白の位置が複数・不明な時でも最終行・列を求める。

これまで最終行・列を求める方法として
先頭から求める方法や、開始位置をずらして求める方法など説明しました。

しかし空白の位置が不明な状態では開始位置すらわからないため
空白をよけることが不可能です。

このような状態でも最終行・列は求めることができます。

例で最終行を求めます。
考え方はこれまで、先頭行を入力して下方向に最終行を求めてました。

この考え方を変えて、エクセル自体の最終行から上方向に最終行を求めます。
ちなみにエクセルの最終行を求める方法は下記の通りです。

変数 = Rows.Count

こちらを実行してみた結果はこちらです。

変数はEndRowを使用しました。

変数EndRowには「1048576」となってます。
つまり現在私が使用しているエクセルの最終行は「1048576行」となります。

そこから上方向に最終行を求めれば最終行を導き出すことが可能です。
つまりデータ型は「xlUp」を使用します。

ではプログラムです。下記のようになりました。

Sub 空白を無視した最終行()

Dim EndRow As Long

EndRow = Rows.Count

Range(“C3”) = Cells(EndRow, 1).End(xlUp).Row

End Sub

実行した結果はこのようになります。

空白をよけて、下から上方向に最終行を求めることで
正解の「20」を表示することができました。

B列なら
求めた結果= Cells(EndRow, 2).End(xlUp).Row

Ｃ列なら
求めた結果 = Cells(EndRow, 3).End(xlUp).Row

で対応可能です。

列でも同様です。
考え方は全く同じで、エクセル自体の最終列を変数に置き、
そこから左方向に最終列を求めることで空白を無視した最終列を求めることができます。
プログラムは下記の通りです。

Sub 空白を無視した最終列()

Dim EndColumn As Long

EndColumn = Columns.Count

Range(“B4”) = Cells(1, EndColumn).End(xlToLeft).Column

End Sub

こちらも２列目なら
求めた結果= Cells(2, EndColumn).End(xlToLeft).Column

3列目なら
求めた結果 = Cells(3, EndColumn).End(xlToLeft).Column

となります。

■公式の説明

わかりやすいように説明したため公式と使用する語句が異なりますが

マイクロソフト公式の説明については下記のリンクを参照してください。☟

Range.End プロパティ (Excel) | Microsoft Docs

■まとめ

いかがだったでしょうか。
最終行の求め方がわかれば
データの蓄積を最終行・列で追加していくことも可能です。

さらにどこにあるのかわからない空白を無視できる方法は
とても便利な機能です。

それでは次回の記事でお会いしましょう。