檢索僅可見單元格

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 

這假定自動篩選已應用。