【VBA】最終列を取得する方法【値・列数を求める】

VBAでは『最終行を取得する方法』と同様に、『エクセルのワークシートの最終列の値・列数の取得』はとても使われるテクニックです。

そんなVBAでは必須レベルの「ワークシートの最終列の値・列数の取得の方法」を、簡単なのでぜひ覚えていってください。

入力データの最終行を取得する方法

ここでは「Endプロパティ」を使って最終列を取得していきます。

そして、ここで使う表は下の通りです。

では、さっそく最終列を求めてみます。

End(xlToLeft)で最終列を取得する

下のコードで最終列を取得することができます。

Sub sample1()

    ' --- 最終列の値を取得
    Debug.Print Cells(2, Columns.Count).End(xlToLeft)
    
    ' --- 最終列の行数を取得
    Debug.Print Cells(2, Columns.Count).End(xlToLeft).Column
End Sub

Sub sample1()

' --- 最終列の値を取得

Debug.Print Cells(2, Columns.Count).End(xlToLeft)

' --- 最終列の行数を取得

Debug.Print Cells(2, Columns.Count).End(xlToLeft).Column

End Sub

上のコードではEndプロパティの引数になっている「xlToLeft」を入れています。

この「xlToLeft」とは”Ctrlキー + ←”を押したときと同等の動きをします。

つまり、上の『Cells(2, Columns.Count).End(xlToLeft)』は「2行目の一番右を選択した状態でCtrlキー + ←を押したときの値を取得する」ということになります。

上のコードを実行すると下のような結果が得られます。

最終列はF列（6列目）なので結果はあっていますね。

〇おすすめのVBA参考書ランキング！

1位	2位	3位

Excel VBA 脱初心者のための集中講座	パーフェクトExcel VBA	ExcelVBA 実戦のための技術
初心者～中級者	中級者	初心者～中級者
【初心者が手に取るべき参考書】・「書籍＋動画」で圧倒的に理解しやすい入門書になっている。・丁寧で詳しい解説でボリューム感がある。	【より深い理解をしたい方にお勧めな参考書】・テーマに対して丁寧な解説・適度な深さで解説されている。・幅広くテーマを扱っていることから、基礎知識をあらかた網羅できる。	【入門書と一緒に買うべき参考書】・１つ１つのテーマを経験豊富なエンジニア視点で解説してくれている。・実践的で効果的なコードの書き方が理解できる。
【読んでみた一言】正直、入門書はコレ一冊でいいかも。あとは中級者用の参考書に進むべし。	【読んでみた一言】深く書かれているが、少々専門的に書かれていることから、読む前に数冊の入門書を読破したほうが良い。	【読んでみた一言】基礎知識を持っている人が次のレベルに達するきっかけを与えてくれる参考書である。
￥2,794円 amazonで確認!	￥3,608円 amazonで確認!	￥2,640円 amazonで確認!