时间戳

首页 > 解决方案 > VBA：如何找到第一个未隐藏的行

excel - VBA：如何找到第一个未隐藏的行

问题描述

我一直在使用以下内容来查找最后一个未隐藏的行：

Dim lrow As Long
lrow = Cells(Rows.Count, "A").End(xlUp).Row

我将如何为第一个未隐藏的行做同样的事情？

编辑：我想找到第一个不隐藏的行，不包括 A1。

标签： excelvba

解决方案

Dim lRow As Long
lRow = ActiveSheet.Columns(1).SpecialCells(xlCellTypeVisible).Row

获取RowA 列（也称为 1 列）中第一个可见单元格的 ，无论它是否包含任何数据

由于问题已被修改为要求将第 1 行排除在测试之外，因此这里有一个版本：

Dim rTestRange AS Range, lRow AS Long
Set rTestRange = ActiveSheet.Range(ActiveSheet.Cells(2,1), _ 'Start from Row 2
    ActiveSheet.Cells(ActiveSheet.Rows.Count,1)) 'Until the bottom row of the sheet
lRow = rTestRange.SpecialCells(xlCellTypeVisible).Row 'First visible row

推荐阅读