【VBA】指定したセルの列を示すアルファベットを取得する

VBAコード

ここでは例としてシート「sample」上の
　・セル「B3」の列を示す「アルファベット」を取得
します。
※文字列「B」を取得します。

Option Explicit

Sub sample()
        
    Dim address As String
    Dim arrAddress As Variant
    
    '「対象セル」のアドレスを取得
    address = Worksheets("sample").range("B3").address(RowAbsolute:=True, ColumnAbsolute:=False)
    
    '「対象セルのアドレス」を「$」で区切って「2つの要素を持つ配列」を作成
    '「作成された配列の1要素目」に「列(アルファベット)」が格納される
    arrAddress = Split(address, "$")
    
    '「配列の1要素目」を表示　※列(アルファベット)を表示
    MsgBox arrAddress(0)
    
End Sub

実行結果

指定したセルの列を示すアルファベットを取得できました。
※セル「B3」の列を示す「アルファベット(=B)」を取得できました。

参考

上記のVBAコードで使用した以下の詳細は、公式サイトをご確認ください。

●「Rangeオブジェクト」の「address」プロパティ

●Split関数