如何仅偏移可见单元格

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