vbscript - 如何在VBS中将数字转换为字母？

Question

我想使用 VBScript 获取一个数字并将其转换为小写 a-z 字母。

例如:

• 1 转换为 a
• 2 转换为 b
• 27 转换为 aa
• 28 转换为 ab
• 等等...

特别是，在转换为 2 个字母的单元格名称时，我在转换 26 之后的数字时遇到问题。 (aa、ab、ac 等)

Answer 1

您应该看看 Chr(n)功能。

这将满足您从 a 到 z 的需求:

wscript.echo Chr(number+96)

要表示数字的多个字母(就像 Excel 那样)，您必须检查数字的范围并使用 Mod求模运算符。

<小时/>

编辑:

网上有一个快餐复制粘贴的例子:How to convert Excel column numbers into alphabetical characters

引用微软的示例:

For example: The column number is 30.

The column number is divided by 27: 30 / 27 = 1.1111, rounded down by the Int function to "1".

i = 1

Next Column number - (i * 26) = 30 -(1 * 26) = 30 - 26 = 4.

j = 4

Convert the values to alphabetical characters separately,

i = 1 = "A"
j = 4 = "D"

Combined together, they form the column designator "AD".

及其代码:

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