数字转列的字母,和列字母转数字
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