如何使用VBA Excel获取过滤表中第一项的行号

Question

我的附件中有以下内容

当我将此列表过滤为仅“零售”时，我尝试使用以下宏来获取第一项的行数。根据第 3 行中的第一个“零售”，宏应该显示一个带有数字“3”的消息框，但 ot 一直向我发送数字“1”

Sub Macro1()

    Range("A1").Select
    SendKeys "{DOWN}"
    FirstRow = ActiveCell.Row
    
    MsgBox (FirstRow)
    
End Sub

消息框应显示“3”

Answer 1

尝试此代码（假设数据位于第

A

列中）：

Sub FirstVisibleRow()
   MsgBox Columns("A").SpecialCells(xlCellTypeVisible).Find("Retail").Row
End Sub