Solution for VBA: How to find the first unhidden row
is Given Below:
I have been using the following to find the last unhidden row:
Dim lrow As Long lrow = Cells(Rows.Count, "A").End(xlUp).Row
How would I do the same for the first unhidden row?
EDIT: I’d like to find the first unhidden row excluding A1.
Dim lRow As Long lRow = ActiveSheet.Columns(1).SpecialCells(xlCellTypeVisible).Row
Row of the first visible cell in Column A (a.k.a. Column 1), regardless of whether or not it contains any data
Since the question has been modified to request that Row 1 be excluded from the test, here’s a version for that:
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