Cacher is the code snippet organizer for pro developers

Function convert1(a) '数字和列字母，转换
    If IsNumeric(a) Then
        convert1 = Split(Cells(1, a).Address, "$")(1)
    Else
        convert1 = Range(a & "1").Column
    End If
End Function

'数字转列字母
a_str = Split(Cells(1, a).Address, "$")(1)

'列字母转数字
a = range(a_Str & "1").Column