HOME>TOP>セル

データ(表)の最終列を取得するには？

キーワード>>最終列・Column・End(xlToLeft)・Columns.Count

　

Point：表などでデータの一番右端の列番号を知りたい場合に使います。


Sub Test()
     Dim i

     'Cells(1, Columns.Count)←1行目の最後の列
     i = Cells(1, Columns.Count).End(xlToLeft).Column

     MsgBox "最終列は、" & i

End Sub

掲載サンプルコードの使用に関して、直接・間接
を問わず生じた一切の損害について如何なる責任も負いません。