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

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

这假设已经应用了AutoFilter。