[已解决]怎样确定某一列的有效行数

hhczxe

在表格中，每列包含有效信息行数是不相等的，如何用VBA代码返回某一列中最后一个有效单元格的行号呢！
谢谢指教！

最佳答案

月排行榜 / 总排行榜

Benol

2011-12-4 18:43

代码取决于“有效单元格”如何定义。下面给两个示例：
（以下称有数据的最后一行为“末行”）

1. 
   
2. [A65536].end(xlup).row '取得A列末行行号，适用于末行行号小于65536，且末行没有被隐藏的情况
   

复制代码

1. 
   
2. Range("A:A").Find("*", LookIn:=xlFormulas, SearchDirection:=xlPrevious).Row  '取得A列末行行号，基本上通用。
   

复制代码

但如果你要取得最后一个公式所在行或者其他特殊的限定条件，则另当别论。

跳转到最佳答案楼层

Zipall

何为"有效单元格"?

这样吗?
range("a:a").end(xlup).row

Benol

代码取决于“有效单元格”如何定义。下面给两个示例：
（以下称有数据的最后一行为“末行”）

1. 
   
2. [A65536].end(xlup).row '取得A列末行行号，适用于末行行号小于65536，且末行没有被隐藏的情况
   

复制代码

1. 
   
2. Range("A:A").Find("*", LookIn:=xlFormulas, SearchDirection:=xlPrevious).Row  '取得A列末行行号，基本上通用。
   

复制代码

但如果你要取得最后一个公式所在行或者其他特殊的限定条件，则另当别论。

hhczxe

谢谢两位的解答，
其实简单说，所谓“有效单元格”就是最后的一个“非空单元格”
也就是说，我想得到某一列中，最后一个非空单元格所在的行号！
Benol 给的两种答案都试了，有效
Zipall 给的答案在立即窗口显示 的值总是1，不知为什么