🔙 Back to Menu

列名を列番号に変換

🟢 Excel VBA
投稿日: 2026年4月9日16:43 
Public Function DispClmLng(strClm As String) As Long
    Dim lngClm As Long
    Dim rngClm As Range
    '
    Set rngClm = Columns(strClm)
    DispClmLng = rngClm.Column
End Function
列名としてアルファベットを引数として渡し、
列全体を範囲として取得し、
その範囲のColumnプロパティを取得する。
No Comment