VBA｜最終列を取得する

データの最終列を取得する

Sub 最終列の取得()
    Dim endClm As Long
    endClm = Cells(1, Columns.Count).End(xlToLeft).Column
    MsgBox endClm
End Sub

1行目の2列目が取得できます。