一个很基础的问题：怎样将数字表示的列转为字母表示的列？

4861

收藏 2010-05-11

我现在有一个整数i，表示一个工作表的第i列，要把它转化为用字母表示的列，即:
i=1转化为“A”
i=2转化为“B”
。。。
i=26转化为“Z”
i=27转化为“AA”
。。。

不高兴编程了。有没有VBA的内部函数或excel的内部函数做这件事情？

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

全部回复

gssdzc

2010-5-11 10:32:23

呵呵。顶起来。。。。。

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

warrenzhang

2010-5-11 10:51:42

算了，还是自己写一个吧，抛砖引玉。
Function int2col(i As Integer) As String
If (i - 1) \ 26 < 1 Then
int2col = Chr(i + Asc("A") - 1)
ElseIf (i - 1) \ 26 >= 1 And (i - 1) \ (26 ^ 2) < 1 Then
int2col = Chr((i - 1) \ 26 + Asc("A") - 1) & Chr((i - 1) Mod 26 + Asc("A"))
Else
int2col = Chr((i - 1) \ 26 ^ 2 + Asc("A") - 1) & Chr((i - 1) \ 26 + Asc("A") - 1) & Chr((i - 1) Mod 26 + Asc("A"))
End If

End Function