Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

列名を取得、列番号を取得（Address プロパティ,Column プロパティ）

2015/08/31

列番号を取得する

セル番地（「A1」や「B3」）や列名（「A」「B」「C」… ）から列番号を取得するするには、Column プロパティ を利用します。

【書式】

columnnumber = object.Column

引数・戻り値

object ・・・対象となる Range オブジェクトを指定します。セル範囲を指定した場合、左上端のセルを参照します。
columnnumber ・・・列の番号を表す長整数型（Long）の値。

Column プロパティ に関しては、セルの行番号または列番号を取得を参照してください。

列名を取得する

列番号から列名を取得する関数やプロパティはありませんが、Address プロパティ と Split 関数 を組み合わせて利用すると取得することができます。

【書式】

columnname = Split ( Cells( [ rownumber ], columnnumber ).Address, “$” )(1)

引数・戻り値

rownumber ・・・行の番号を表す長整数型（Long）の値を指定します。（省略可）
columnnumber ・・・列の番号を表す長整数型（Long）の値を指定します。
columnname ・・・列名を表す文字列型（String）の値。

Address プロパティ に関しては、セルのアドレスを確認（Address プロパティ）を参照してください。

Split 関数 に関しては、Split 関数（文字列型の一次配列を作成）を参照してください。

列名を取得、列番号を取得使用例

サンプルVBAソース

　
Sub Sample_GetColumn()


    Dim str As String
    
    
    '「AAA 列」の列番号を取得
    str = "「AAA 列」：" & Range("AAA:AAA").Column & Chr(13)
    
    
    '「50列目」の列名を取得
    str = str & "「50列目」：" & Split(Cells(, 50).Address, "$")(1)
    

    MsgBox str


End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

　

Sub Sample_GetColumn()

Dim str As String

'「AAA 列」の列番号を取得

str = "「AAA 列」：" & Range("AAA:AAA").Column & Chr(13)

'「50列目」の列名を取得

str = str & "「50列目」：" & Split(Cells(, 50).Address, "$")(1)

MsgBox str

End Sub

　

実行結果

- セルの操作 Address プロパティ, Column プロパティ, Range オブジェクト, Split プロパティ, VBA基本, エクセルVBA, セルの操作

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: 対象のセルを直接参照しているセル全てを取得（DirectDependents プロパティ）

DirectDependents プロパティ DirectDependents …

: セル範囲を結合・結合を解除（MergeCells プロパティ）

MergeCells プロパティ MergeCells プロパティは、指定したセ …

: オートフィルタ（矢印を非表示にする）AutoFilter メソッド

AutoFilter メソッド【書式】 object.AutoFilter ( …

: 対象のセルが配列数式の一部かどうか（HasArray プロパティ）

HasArray プロパティ HasArray プロパティは、対象のセルが配列数 …

: フリガナ（Phonetics プロパティ）

Phonetics プロパティ Phonetics コレクションを返します。値の …

: 任意のセルを含む行または列全体を参照（EntireRow プロパティ,EntireColumn プロパティ）

EntireRow プロパティ・EntireColumn プロパティ Entir …

: 指定した条件に一致するセルを取得（SpecialCells メソッド）

SpecialCells メソッド SpecialCells メソッドは、指定し …

: 文字列を縮小して全体を表示（ShrinkToFit プロパティ）

ShrinkToFit プロパティ ShrinkToFit プロパティは、セルに …

: セルの値を置換（Replace メソッド）

Replace メソッド任意のセル範囲内から特定の値を一括して置換します。Fi …

: セルを参照する（Cells プロパティ）

Cells プロパティ Cells プロパティは、ワークシートの行番号と列番号を …

PREV: 画面の更新を停止（ScreenUpdating プロパティ）
NEXT: 文字列：定数（改行・タブ）