Excel VBA优化筛选范围的最后一行
丽兹
我正在尝试查找工作表上已过滤范围的行数。LstRow2是我要查找的变量。有了这段代码，我得到了未经过滤的行数。
CSht.Range(CSht.Cells(1, 1), CSht.Cells(LstRow1, LstCol1)).AutoFilter Field:=2, Criteria1:="RA"
With CSht
LstRow2 = .UsedRange.SpecialCells(xlCellTypeLastCell).Row
End With
斯科特·霍尔兹曼
您将只需要处理可见的单元格，因为它已被过滤。
试试这个：
With CSht
'load filter cells into Range object
Dim rngFilter as Range
Set rngFilter = Intersect(.UsedRange,.UsedRange.Offset(1)).SpecialCells(xlCellTypeVisible)
'find the max number of elements split by $ in the range address
'needs to be dynamic because of areas
Dim lUpper as Long
lUpper = UBound(Split(rngFilter.Address,"$"))
'the last element will be the last row in the filtered range
'the last number in the rngFilter.Address
Dim LstRow2 as Long
LstRow2 = Split(rngFilter.Address,"$")(lUpper)
End With
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
编辑于
- 上一篇：setQuitOnLastWindowClosed（true）：widget.hide（）== widget.close（）吗？
- 下一篇：模拟器重启时，Android“ KeyPermanentlyInvalidatedException”
相关文章
Related 相关文章
- 1
Excel VBA优化筛选范围的最后一行
- 2
Excel 2010 VBA仅影响范围的最后一行
- 3
Excel公式，获取动态范围的最后一行
- 4
如何知道最后一行填写VBA（Excel）？
- 5
Excel VBA的最后一行变量不计算
- 6
使用Excel VBA查找最后一行
- 7
访问 VBA：获取 Excel 工作表的最后一行
- 8
为什么我的excel表格最后一行的索引超出范围？
- 9
VBA-Excel：提及等于给定范围且少一行的范围
- 10
VBA-Excel：提及等于给定范围且少一行的范围
- 11
使用VBA滚动到Excel中的文本的最后一行
- 12
求和直到使用VBA在Excel中添加公式的最后一行
- 13
如何从单独的Excel工作表VBA中删除最后一行
- 14
Access 2007 vba在Excel 2007工作表中查找最后一行
- 15
Excel VBA保存工作表，以便在最后一行打开
- 16
Excel VBA：如何查找包含实际数据的工作表的最后一行
- 17
从Excel VBA查找CSV数据库中的最后一行
- 18
Outlook VBA在Excel工作表中查找最后一行
- 19
如何在Excel VBA中插入并拖动公式直到最后一行
- 20
下一行的 Excel VBA 公式
- 21
Excel VBA-如何知道下一行或下一列是否是最后一个？
- 22
使用word宏返回excel的最后一行
- 23
使用word宏返回Excel的最后一行
- 24
提取Excel单元格中的最后一行
- 25
在Excel中根据最后一行选择多行
- 26
获取Excel表格最后一行的位置
- 27
Excel VBA：For 循环计算除最后一行之外的所有内容。第一行的文本标题需要遗漏
- 28
如果Else语句仅适用于Excel VBA Userform中的最后一行数据
- 29
Excel：引用传递的范围的每一行中的字段
我来说两句