【Excel VBA】最終列を取得したい

今回やりたいこと🙌

左方向（←）に検索して最終列を取得したり

右方向に（→）検索して最終列を取得したい！

VBA紹介😊

左方向（←）に検索して最終列を取得する方法
・1行目を右から左方向に検索して、最初に見つかった空白でないセルを”最終列”として取得後
　メッセージボックスで表示する。

Sub 左から最終列取得()

 Dim 最終列 As Long

    最終列 = Cells(1, Columns.Count).End(xlToLeft).Column
    
    MsgBox 最終列
    
End Sub

実行結果

右方向（→）に検索して最終列を取得する方法
・1行目を左から右方向（→）に検索して、最初に見つかった空白セルの1つ前のセルを”最終列”として取得後
　メッセージボックスで表示する。

Sub 右から最終列取得()

 Dim 最終列 As Long

    最終列 = Cells(1, 1).End(xlToRight).Column
    
    MsgBox 最終列
    
End Sub

実行結果

おわりに👻

左方向への検索による最終列の取得をよく使いますが、
空白列が間に入る場合などは右方向への検索による最終列の取得も便利なので
覚えておくといざというときに役に立ちますよ😆