过滤后如何在可见行中查找单元格

Question

过滤后如何获得可见单元格的所有行号？我需要每个可见行的数量来复制一些单元格。例如，我有15行。过滤后，仅第2行和第10行可见。如何找到Cell (10,2)和(2,2)？ 例如，sheet1中有15行。 过滤后，仅可见row 2和row 10。我要复制cell (10,2)和cell(2,2)。但是我不能。

sheet2.Cells(2, w) = sheet1.Cells(k, 1) 

将k = 1并从第一行复制。应该是k = 2和k = 10。