使用VBA对Excel列号转列名称

最新推荐文章于 2024-04-29 20:25:12 发布

javalfans

最新推荐文章于 2024-04-29 20:25:12 发布

阅读量497

点赞数 1

分类专栏： VBA

本文链接：https://blog.csdn.net/javalfans/article/details/84497524

版权

VBA 专栏收录该内容

1 篇文章 0 订阅

订阅专栏

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