081.字母栏名转数字栏名

'###############################################################

'函数作用：字母栏名转数字栏名

'###############################################################

Function ColumnN(abc As String) As Long

    abc = UCase(abc)

    Select Case Len(abc)

        Case 1

            ColumnN = Asc(abc) ‐ 64

        Case 2

            ColumnN = (Asc(Left(abc, 1)) ‐ 64) * 26 + Asc(Right(abc, 1)) ‐ 64

    End Select

End Function