从唯一可见的单元格中检索行号列表

我们假设，我有下面的表格：

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

我想在每一行提取一些数据并填写日志。 我已经完成了为整个数据工作的macros。 但是现在我只需要提取select的数据，比方说只有第一列的数据等于“Toto”。

为此，我手动使用自动filter（用户友好性），然后仅提取符合标准的可见单元格

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

为了避免重写macros，我想知道是否有输出符合条件的行号列表的方法。 我有一点search，我没有幸运。 任何想法？

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已经被应用了。