使用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