Excel VBA获取筛选后表格首项行号异常：代码返回1而非3求解决

你的代码始终返回1的核心问题是SendKeys的不可靠性，以及它无法正确识别Excel筛选后的隐藏行逻辑：

• SendKeys是模拟键盘输入的方法，极易受当前窗口焦点、Excel状态干扰，经常出现执行不生效的情况；
• 就算生效，直接按{DOWN}在筛选场景下可能不会跳过隐藏行，导致停留在原A1单元格，所以返回行号1。

替代方案1：用SpecialCells精准定位可见单元格 #

这种方法直接筛选出数据区域内的可见单元格，取第一个的行号，稳定性拉满：

Sub GetFirstRetailRow()
    Dim firstVisibleCell As Range
    ' 假设表头在第1行，数据从A2开始延伸到A列最后一行
    Set firstVisibleCell = Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row).SpecialCells(xlCellTypeVisible).Cells(1)
    
    If Not firstVisibleCell Is Nothing Then
        MsgBox firstVisibleCell.Row
    Else
        MsgBox "未找到筛选后的可见行"
    End If
End Sub

替代方案2：用End(xlDown)导航到第一个可见数据行 #

这是Excel内置的导航方法，能自动跳过筛选后的隐藏行，比SendKeys靠谱太多：

Sub GetFirstFilteredRow()
    Dim firstRow As Long
    ' 从A1直接跳转到下方第一个可见的非空单元格
    firstRow = Range("A1").End(xlDown).Row
    MsgBox firstRow
End Sub

注意：如果你的表头不在第1行，需要调整代码中的起始单元格（比如把A1改成你的表头行单元格）。

内容的提问来源于stack exchange，提问作者Abby Vilchis