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

王小博vba

王小博vba 发表于 2012-12-11 09:52
这样行吗？

F1单元格是试验的excel里的空的单元格，你只要用一行中最后一个空单元格替换F1就行。

hehex

王小博vba 发表于 2012-12-11 10:55
F1单元格是试验的excel里的空的单元格，你只要用一行中最后一个空单元格替换F1就行。

你的思路是正确的，但是方法错了。应该选择最后一列的单元格用end 属性的xlLeft 方法不是xlRight 方法。
做了一个示例文件，分别罗列了你的程序还有我修改的程序，运行一下看看结果就知道了。

王小博vba

hehex 发表于 2012-12-11 12:36
你的思路是正确的，但是方法错了。应该选择最后一列的单元格用end 属性的xlLeft 方法不是xlRight 方法。
...

姜还是老的辣！我只看了标题。让求最后一列嘛，那我就最后一列呗。原来他例子的意思是说“最后一个非空单元”啊，恩，看来下次要认真的搞懂需求。：）

zzb96

王小博vba 发表于 2012-12-11 09:52
这样行吗？

谢谢分享，学习一下。

gujiejack2

1. Sub aa()
   
2. ends = Sheet3.Cells(1, Columns.Count).End(xlToLeft).Address(0, 0)
   
3. a = Left(ends, 1)
   
4. End Sub

复制代码