Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
12
返回列表 发新帖
楼主: meizu9

如何循环A-Z当超过26个字母时输出AA,AB,AC.....

[复制链接]
发表于 2017-12-15 16:29 | 显示全部楼层
本帖最后由 苏子龙 于 2017-12-15 16:49 编辑
  1. Function zm$(n&) '其实就像26进制
  2.     If n < 1 Then zm = "": End
  3.     Dim b(), s$, i%, a&
  4.     a = n
  5.     If n > 26 Then
  6.         Do While a > 26
  7.             ReDim Preserve b(i + 1)
  8.             b(i) = Chr((a Mod 26) + 64)
  9.             a = Int(a / 26)
  10.             i = i + 1
  11.         Loop
  12.         b(i) = Chr(a + 64)
  13.         zm = StrReverse(Join(b))
  14.     Else
  15.         zm = Chr(n + 64)
  16.     End If
  17. End Function
复制代码
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 15:10 , Processed in 0.375679 second(s), 7 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表