Excel座標関係の汎用関数２

１とは逆に、アルファベット列表記から列番号（長整数）を得る。A列が1。厳密な範囲判定は行っていない。

Function ColToX(Col As String) As Long
    ' 列記号を列番号に変換
    Const Cols = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
    
    If Col <> "" Then
        Col = Right(" " & Col, 2)
        ColToX = InStr(Cols, Mid(Col, 1, 1)) * 26 + InStr(Cols, Mid(Col, 2, 1))
    Else
        ColToX = 0
    End If
End Function