'############################################################### '函数作用:字母栏名转数字栏名 '############################################################### 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 |
|