VBA中如何获取筛选状态下某列最后一个非空单元格行号？

作者：绿色风分类：时间：2022-08-17 浏览：327

楼主
amulee

Q：VBA中如何获取筛选状态下某列最后一个非空单元格行号？
A：在筛选状态下，VBA中常用的End(Xlup)方法获取最后一个非空单元格会发生错误，该方法将忽略隐藏的单元格。如下列，在A16单元格存在数据，而以下语句却返回15：

Sub 获取最后一个非空单元格()
MsgBox Range("A" & Cells.Rows.Count).End(xlUp).Row
End Sub

解决方案如下：
1、利用函数解决。

'运用函数公式法，2007以上版本适用
Sub 获取最后一个非空单元格1()
MsgBox [Match(1, 0 / (A:A <> ""))]
End Sub

2003版本中由于不支持整列的运算，可以采用以下方式：

'2003适用，由于2003不能使用整列的运算
Sub 获取最后一个非空单元格2()
MsgBox [IF(A65536<>"",65536,MATCH(1, 0 / (A1:A65535 <> "")))]
End Sub

2、VBA遍历方法。通过遍历所用区域的该列单元格来获取最后一个非空行。

Sub 获取最后一个非空单元格3()
Dim RowN As Long
Dim Rng As Range
Set Rng = ActiveSheet.UsedRange
For RowN = Rng(Rng.Count).Row To 1 Step -1
If Cells(RowN, "A") <> "" Then Exit For
Next
MsgBox RowN
End Sub

VBA中如何获取筛选状态下某列最后一个非空单元格行号.rar

2楼
xmyjk

谢谢阿木分享

3楼
水星钓鱼

感谢分享，这个还没碰到过

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表