vba - 仅从可见单元格中检索行号列表

Question

假设，我有下表:

Toto B June 12pm
Titi A April 11pm
Toto D January 9am
Toto F December 8am

我想在每一行提取一些数据并填写日志。我已经完成了适用于整个数据的宏。但是我现在只需要提取一组数据，假设只有第一列等于“Toto”的数据。

为此，我手动使用自动过滤器(用户友好性)，然后使用仅提取满足条件的可见单元格

LastLine = Range("A" & Rows.Count).End(xlUp).Row
Export_Range = Workbook.Sheets(1).Range("A2:A" & LastLine).Rows.SpecialCells(xlCellTypeVisible)

为了避免重写宏，我想知道是否有一种方法可以输出符合条件的行号列表。我进行了一些搜索，但我并不走运。任何想法？

Answer 1

这将列出它们:

Sub ListThem()
    Lastline = Range("A" & Rows.Count).End(xlUp).Row
    msg = ""

    For Each r In Range("A2:A" & Lastline).Cells.SpecialCells(xlCellTypeVisible)
        msg = msg & r.Row & vbCrLf
    Next r
    MsgBox msg
End Sub

这假定已经应用了自动筛选。