VBA 列号转列名

最新推荐文章于 2023-07-12 10:24:20 发布

weixin_30739595

最新推荐文章于 2023-07-12 10:24:20 发布

阅读量456

点赞数

原文链接：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

转载于:https://www.cnblogs.com/alicesunBlog/archive/2013/01/15/2861214.html