[VBA] 列的序数转列

'intColumn 1 = column A
Public Function func_NumToCol(ByVal lngColumn As Long) As String
On Error GoTo lb_cannot_resolve
    Dim strAddress As String
    strAddress = Range("A1").Offset(0, lngColumn - 1).Address
    strAddress = Right(strAddress, Len(strAddress) - 1)
    strAddress = Left(strAddress, InStr(1, strAddress, "$", vbTextCompare) - 1)
    func_NumToCol = strAddress
    Exit Function
lb_cannot_resolve:
    func_NumToCol = ""
End Function