excel - 如何仅偏移可见单元格

Question

我正在编写一个 VBA 代码，在该代码中，我必须将表头中的行向下一个精确列。为此，我使用范围的 Offset(1) 属性。问题是我正在处理过滤后的数据，偏移量让我到达 G2，而不是去 Gx，其中 x 是表头后的第一个可见行。我怎样才能更好地做到这一点？谢谢

Answer 1

你可以试试这个:

Sub selectFirstVisibleCell()

    Dim lastRow As Long
    lastRow = Cells(Rows.Count, "G").End(xlUp).Row

    Range("G1:G" & lastRow).Offset(1, 0).SpecialCells(xlCellTypeVisible).Areas(1).Rows(1).Select

End Sub