求教：如何求最后一列的列号（是用字母而不是数字）？

vega · 发表于 2012-12-3 23:21

现在可以用：
LastLine = Range("a1048576").End(xlUp).Row '找到最后一行
LaseColumn = ActiveSheet.UsedRange.Columns.Count '找到最后一列

但都是数字，如何才能找到列的对应字母？

比如一个5行4列的表格，最后一列的字母是"D"

如何求出这个字母呢？

qhmoon · 发表于 2012-12-4 16:24

可以用对照表呀1-A，2-B

vega · 发表于 2012-12-5 21:22

找不到函数的话，似乎也只有这样了

106078739 · 发表于 2012-12-6 09:29

choose（n,"a","b","c"........)函数好像可以n是计算出的列数，是个数字

丁丁采花贼 · 发表于 2012-12-6 10:57

还有更科学的函数么

那点都不会 · 发表于 2012-12-8 12:56

进来学习学习新鲜的东西

没叶子的树 · 发表于 2012-12-8 16:17

友情支持一下。。。

那点都不会 · 发表于 2012-12-10 11:30

只要功夫深，铁棒磨成针啊

没叶子的树 · 发表于 2012-12-10 14:21

楼主太厉害了,谢谢分享！

王小博vba · 发表于 2012-12-11 09:52

本帖最后由王小博vba 于 2012-12-11 09:54 编辑

Option Explicit
Sub 最后一列的列名称()
Dim str As String, str2
str = Range("F1").End(xlToRight).Address
str2 = Split(str, "$")
MsgBox str2(1)
End Sub

复制代码

这样行吗？

		自动登录	找回密码
密码			免费注册