使用VBA对Excel列号转列名称

转自：http://www.cnblogs.com/alicesunBlog/archive/2013/01/15/2861214.html

前段时间做的一个项目（Vista print）中需要将列号转为列名（例如：第26列应该是第Z列）。那137或者185列应该是哪列呢？总不能就这么数下去吧。 最后写了个Funtion解决这一问题。代码如下：

Public Function NumToChr(PureNum As Integer) As String

    If PureNum Mod 26 = 0 Then

        NumToChr = VBA.IIf(PureNum \ 26 = 1, "", VBA.Chr(PureNum \ 26 + 63)) & "Z"

    Else

        NumToChr = VBA.IIf(PureNum \ 26 = 0, "", Chr(PureNum \ 26 + 64)) & Chr(PureNum Mod 26 + 64)

    End If

End Function