ExcelVBAで最終列を調べる方法

構文

構文は以下の通りです。

最終列 = Cells(行番号, Columns.Count).End(xlToLeft).Column

解説

Cells(行番号, Columns.Count)は、Excelの特定の行（行番号）で、シートの最終列（Columns.Count）にあるセルを指定します。End(xlToLeft)は、最終列のセルから左方向（xlToLeft）に移動し、最初に値があるセルまで移動します。Columnは、上記の移動したセルの列番号を取得します。この構文を使うことで、Excelシートの特定の行における最終列の列番号を調べることができます。

プログラミング例

具体的なプログラミング例を紹介します。

Sub 最終列を調べる()
    Dim 最終列 As Long
    最終列 = Cells(1, Columns.Count).End(xlToLeft).Column
    MsgBox "最終列は " & 最終列 & " 列目です。"
End Sub

上記のプログラムは、行番号1（つまり最上行）で最終列を調べています。最終列 という変数に最終列の列番号を格納し、メッセージでその列番号を表示しています。

まとめ

最終列を調べるためには、Cells(行番号, Columns.Count).End(xlToLeft).Column という構文を使用します。この構文は、特定の行で最後にデータが入力された列を見つけるのに役立ちます。