[已解决]已知列数，求字母字段

billyzhang0609

已知x=49,如何得到 所在的列的字母 “AW”？

dim rng as range
dim x%

...
...
x=rng.columns
...
...

用chr(64+x),列号如果超过“Z”，就有问题，还有别的办法得到列所在的字母吗？

最佳答案

月排行榜 / 总排行榜

爱疯

2016-8-9 09:31

Sub Click()
    Dim x%, str$   
    x = 49
    str = Cells(1, x).Address(0, 0)
    str = Replace(str, "1", "")
    MsgBox str
End Sub


这样吗？

跳转到最佳答案楼层

爱疯

Sub Click()
    Dim x%, str$   
    x = 49
    str = Cells(1, x).Address(0, 0)
    str = Replace(str, "1", "")
    MsgBox str
End Sub


这样吗？

billyzhang0609

爱疯 发表于 2016-8-9 09:31
Sub Click()
    Dim x%, str$   
    x = 49

神思路，高手！

砂海

想到2种,供参考

计算法 =x\26 结果0-26 对应""至"a-z"

地址法 从 rng.address 中提取