'n必须介于1到256之间,翻译列号
Public Function ColABC(n As Integer) As String
    ColABC=Split(Cells(1, iCol).Address, "$")(1)
End Function
Public Function ColN(abc As String) As String
    ColN = Range(abc & 1).Column
End Function