[已解决]如何快速计算出列的代号？

生闷气

各位大侠好：
       我们知道一个工作表中的第1列的列号是“A”，第2列的列号是“B”，第3列的列号是“C”......；如果数字太大了，我们就不能一下说出来列号了，如第2869列。请问，如何能快速地计算出类似第2869列的列号(字母)？谢谢。

最佳答案

月排行榜 / 总排行榜

爱疯

2015-5-14 16:23

=SUBSTITUTE(ADDRESS(1,A1,4),1,"")

短1点了

跳转到最佳答案楼层

心正意诚身修

我的最多只有256列,不過.我想這個可能需要提前建個資料庫..INT(2896/26)對應的是哪個字母,然後MOD(2896,26)這個餘數對應的是A-Z中間的哪字母...這樣,你看可行不..如果不常用這個的話,我覺得是沒必要搞這麼復雜的.

爱疯

Sub Click()
    Dim x, s
    x = Application.InputBox("请输入一个数字:", , 2869, , , , , 1)
    If x = False Then End

    s = Columns(x).Address(0, 0)
    s = VBA.Split(s, ":")
    MsgBox s(0)
End Sub



没作检查，简写的

爱疯

=LEFT(ADDRESS(1,A1,4),LEN(ADDRESS(1,A1,4))-1)



太长了

爱疯

=SUBSTITUTE(ADDRESS(1,A1,4),1,"")

短1点了

生闷气

谢谢“爱疯”老师，您辛苦了。

李建军

=SUBSTITUTE(ADDRESS(1,A1,4),1,)
短2点了

生闷气

李建军 发表于 2015-5-14 19:22
=SUBSTITUTE(ADDRESS(1,A1,4),1,)
短2点了

李建军老师回复很有意思，很幽默。谢谢，谢谢。如果你回复早了，我会把最佳给您的。