列番号をアルファベットの列名に置き換える

トップページ（目次）

310.列番号をアルファベットの列名に置き換える

＜実行前後＞

→

Sub 列番号をアルファベットの列名に置き換える()

    列番号 = 3
    
    列名 = Replace(Replace(Cells(1, 列番号).Address, "$", ""), "1", "")
    
    MsgBox 列名

End Sub