Перейти к следующей строке отфильтрованных данных VBA Excel

Question

У меня есть такой лист:

Картинка предоставлена ​​

Все, что я хочу, это то, что я могу перейти к следующему ряду и показать его значение. У меня уже есть код:

Sub test()

'Select the first row.

MsgBox Sheet1.AutoFilter.Range.Offset(1).SpecialCells(xlCellTypeVisible).Cells(1, 3).Value

'Then move down to the second row of filtered data.

'Code

End Sub

Может кто-нибудь подсказать, как закончить мой саб выше?

Буду признателен за вашу помощь.

Answer 1

Вы можете попробовать внедрить / адаптировать следующее:

Sub VisRows()

Dim rng As Range, lr As Long
With Sheet1 'Change accordingly
    lr = .Cells(.Rows.Count, "B").End(xlUp).Row
    Set rng = .Range("B2:B" & lr)
    'Apply your filter
    For Each cl In rng.SpecialCells(xlCellTypeVisible)
        Debug.Print cl.Value
    Next cl   
End With

End Sub