检索仅可见单元格

Question

假设的行号列表，我有如下表：

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

我想在每行提取一些数据和填充logsheet。我已经完成了为整个数据工作的宏。然而，我只需要提取现在选择的数据，比方说只有第一列等于“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 

这假定自动筛选已应用。