求教字母组合问题

风中漫步

请看excel列头.
就象那样的,给出列数(如500),根据列数组合字符
(A B C .....AA AB AC AD...BA BB BC.........................................)

几天没能想出来,请大神给指点下,谢谢

风中漫步

在线等

盗梦

风中漫步 发表于 2016-5-9 14:24
在线等

稍等，这个相当于26进制的问题

盗梦

1. 'Author: 阿航
   
2. 'Date:2016-05-09
   
3. '列数转Excel列名
   
4. Public Function g(lngNum As Long)
   
5.     'Excel的列头是相当于26进制
   
6.     '（见过其他人写过类似的代码，太繁琐了，他们还判断是否整除和区分1个字母和2个字母）
   
7. 
   
8.     Dim lngTen As Long, strTen As String '十位
   
9.     Dim lngOne As Long, strOne As String '个位
   
10. 
    
11.     lngNum = lngNum - 1 '1到26 变成 0到25的范围，方便求余
    
12. 
    
13.     lngTen = Int(lngNum / 26)
    
14.     lngOne = lngNum Mod 26
    
15. 
    
16.     If lngTen > 0 Then strTen = Chr(64 + lngTen)
    
17.     strOne = Chr(65 + lngOne)
    
18.    
    
19.     g = strTen & strOne
    
20. End Function

复制代码

(第11楼有新解法：突破702限制)

风中漫步

盗梦 发表于 2016-5-9 14:33

谢谢大师,我先试一下来

盗梦

风中漫步 发表于 2016-5-9 14:35
谢谢大师,我先试一下来

加了一个图片，看看我刚刚那个代码后面

风中漫步

谢谢
我测的范围是1-2000,发现会这样

盗梦

风中漫步 发表于 2016-5-9 15:00
谢谢
我测的范围是1-2000,发现会这样

超过ZZ列了

盗梦

风中漫步 发表于 2016-5-9 15:00
谢谢
我测的范围是1-2000,发现会这样

Excel最多 就到 ZZ列

风中漫步

盗梦 发表于 2016-5-9 15:03
Excel最多 就到 ZZ列

好的,再次感谢.

给我了很好的启发