🔙 Back to Menu

列名（アルファベット）取得

🟢 Excel VBA
投稿日: 2026年4月9日16:29 
Public Function DispClmStr(lngClm As Long) As String
    Dim strClm As String
    Dim rngClm As Range
    '
    Set rngClm = Columns(lngClm)
    strClm = rngClm.Address
    DispClmStr = Mid(strClm, 2, InStr(strClm, ":") - 2)
End Function
列番号を引数として渡し、
その列全体をRangeとして取得。
Rangeのアドレスを文字列として取得。
（絶対参照で取得される）
最初の$以降、セル範囲の区切り「:」の前までを取得して返す関数
No Comment