Как сместить только видимые ячейки

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