使用VBA对Excel列号转列名称

最新推荐文章于 2024-11-16 23:23:22 发布

原创最新推荐文章于 2024-11-16 23:23:22 发布 · 567 阅读

1 ·

CC 4.0 BY-SA版权

VBA 专栏收录该内容

1 篇文章

订阅专栏

介绍了一种将Excel中的列号转换为列名的方法，并提供了一个实用的VBA函数实现。该函数能够准确地将任意列号转换为其对应的列名，如137转换为IC，185转换为SY。

转自：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