VBA #004 - シートの列数取得

シートの列数を取得するメモ。

common.bas

Dim LastColumn As Long

'シートの列数取得
LastColumn = Worksheets("Sheet1").Cells(1, Columns.Count).End(xlToLeft).Column

MsgBox LastColumn

• 参考文献
  Office VBA Reference