如何僅偏移可見單元格

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

Answer 2

ActiveSheet.AutoFilter.Range.Offset(1, 0).SpecialCells(xlCellTypeVisible)(1).Row

Answer 3

我通過修改 @TheJaswi 代碼解決了同樣的問題，因為它對我不起作用，並且將第一個列標題偏移到可見行：

'Getting Total columns count in the given table
col = Worksheets(1).ListObjects(1).ListColumns.Count
ActiveSheet.AutoFilter.Range.Offset(1, col - 1).SpecialCells(xlCellTypeVisible)(1).Select