列数を得る方法

Excel VBAで列数を得る方法
　Excel VBAで列数を得る方法は、主に以下の3種類があります。

1. RangeオブジェクトのColumns.Countプロパティを使用する

　最も基本的な方法は、RangeオブジェクトのColumns.Countプロパティを使用する方法です。
　このプロパティは、選択範囲の列数を取得します。

VBA
Sub GetColumnsCount()

' アクティブシートの選択範囲を取得
Dim rng As Range
Set rng = Selection

' 選択範囲の列数を取得
Dim columnsCount As Integer
columnsCount = rng.Columns.Count

' 列数をメッセージボックスに表示
MsgBox columnsCount & "列"

End Sub
コードは注意してご使用ください。
content_copy

2. アクティブワークシートのUsedRangeオブジェクトのColumns.Countプロパティを使用する

　アクティブワークシートで使用されている範囲全体の列数を取得したい場合は、ActiveSheet.UsedRange.Columns.Countプロパティを使用します。

VBA
Sub GetUsedRangeColumnsCount()

' アクティブワークシートで使用されている範囲の列数を取得
Dim columnsCount As Integer
columnsCount = ActiveSheet.UsedRange.Columns.Count

' 列数をメッセージボックスに表示
MsgBox columnsCount & "列"

End Sub
コードは注意してご使用ください。
content_copy

3. SpecialCellsメソッドを使用する

　**SpecialCells(xlLastCell)**メソッドを使用すると、ワークシートで使用されている最後のセルを取得できます。
　このセルの列番号を取得することで、列数を知ることができます。

VBA
Sub GetLastCellColumnsCount()

' ワークシートで使用されている最後のセルを取得
Dim lastCell As Range
Set lastCell = SpecialCells(xlLastCell)

' 最後のセルの列番号を取得
Dim columnsCount As Integer
columnsCount = lastCell.Column

' 列数をメッセージボックスに表示
MsgBox columnsCount & "列"

End Sub
コードは注意してご使用ください。
content_copy
上記以外にも、特定の列の列番号を取得するなど、状況に応じて様々な方法があります。