スキルアップ・問題解決なら、モーグにおまかせ！

サンプルマクロは、インプットボックスに入力された列番号から列見出しを取得します。列番号が列数を超えている場合は、入力された列番号から列数を引いた列番号の列見出しを取得します。

Sub Sample()

    Dim lngColumn As Long
    Dim strColumn As String
    
    lngColumn = Val(InputBox("列番号を入力してください。"))
    If lngColumn = 0 Then Exit Sub
    
    strColumn = Cells(lngColumn).Address(, False)
    strColumn = Left(strColumn, InStr(strColumn, "$") - 1)
    
    MsgBox strColumn

End Sub