如何将 Excel 列号转换为字母字符

最新推荐文章于 2024-06-24 09:39:22 发布

weixin_33860737

最新推荐文章于 2024-06-24 09:39:22 发布

阅读量2.2k

点赞数

文章标签： python

原文链接：https://my.oschina.net/tedzheng/blog/2875552

版权

2019独角兽企业重金招聘Python工程师标准>>>

简介

本文讨论如何使用 Microsoft Excel 中的 Microsoft Visual Basic for Applications (VBA) 功能将同一列中的列号转换为其对应的字母字符指示符。

例如，列号 30 被转换为相应的字母字符“AD”。

更多信息

Microsoft 提供的编程示例只用于演示目的，不带任何明示或暗示性担保。这包括但不限于对适销性或特定用途适用性的暗示性担保。本文假定您熟悉演示的编程语言和用于创建和调试过程的工具。Microsoft 的支持工程师可以帮助解释某个特定过程的功能，但是他们不会修改这些示例以提供额外的功能或构建过程以满足您的特殊需求。
使用下列算法可以实现“ConvertToLetter”功能：

列号除以 27，然后将得到的整数赋值给变量“i”。
列号减去 i*26，然后将所得结果赋值给变量“j”。
将得到的整数值转换为其对应的字母字符，“i”和“j”的取值范围将分别为 0 至 26。

例如：列号为 30。

列号除以 27：30 / 27 = 1.1111，由“Int”函数四舍五入后得“1”。
i = 1
下一个列号 - (i * 26) = 30 -(1 * 26) = 30 - 26 = 4。

j = 4
将得到的整数值分别转换为其对应的字母字符，

i = 1 =“A”
j = 4 =“D”
将这两个字母组合在一起就形成了列指示符“AD”。

下面的 VBA 函数就是一种将列号值转换为其对应字母字符的方法：

Function ConvertToLetter(iCol As Integer) As String
   Dim iAlpha As Integer
   Dim iRemainder As Integer
   iAlpha = Int(iCol / 27)
   iRemainder = iCol - (iAlpha * 26)
   If iAlpha > 0 Then
      ConvertToLetter = Chr(iAlpha + 64)
   End If
   If iRemainder > 0 Then
      ConvertToLetter = ConvertToLetter & Chr(iRemainder + 64)
   End If
End Function

转载于:https://my.oschina.net/tedzheng/blog/2875552