如何用VBA获取表格选定区域单元格行号及筛选后记录行号？

针对你提出的两个问题，我整理了实用的VBA实现方法，都是日常工作里常用的套路：

1. 获取选定区域内每个单元格的行号 #

如果是手动选中了一个单元格区域（比如鼠标拖选），直接遍历Selection对象就能拿到每个单元格的行号。这里给你写个带校验的宏，避免误操作：

Sub GetSelectedCellRowNumbers()
    Dim cell As Range
    Dim rowNumList As String
    
    ' 先校验是否选中了单元格区域
    If TypeName(Selection) <> "Range" Then
        MsgBox "请先选中一个有效的单元格区域！"
        Exit Sub
    End If
    
    ' 遍历每个选中的单元格，收集行号
    For Each cell In Selection
        rowNumList = rowNumList & cell.Row & ", "
    Next cell
    
    ' 清理结果并弹窗展示
    If rowNumList <> "" Then
        rowNumList = Left(rowNumList, Len(rowNumList) - 2)
        MsgBox "选中单元格的行号：" & rowNumList
    End If
End Sub

说明： #

• 先判断选中的是不是单元格区域，防止用户选中形状、图表之类的对象导致报错
• 每个单元格的Row属性就是它的行号，直接读取就行
• 最后会把所有行号整理成字符串弹窗显示，方便查看

2. 筛选后获取可见记录的行号（示例场景） #

针对你说的带countries和cities列的表格，筛选后要拿到可见记录的行号（比如行2和6），这里推荐两种方法：

方法一：用ListObject（Excel表格对象）操作（更稳定） #

如果你的数据是Excel正式表格（不是普通单元格区域），用ListObject来处理最靠谱，不管表格怎么移动、列怎么调整都能正常工作：

Sub GetFilteredRowNumbers_Table()
    Dim tbl As ListObject
    Dim visibleRow As ListRow
    Dim rowNumList As String
    
    ' 绑定到你的表格，替换成实际的工作表名和表格名
    Set tbl = ThisWorkbook.Worksheets("Sheet1").ListObjects("Table1")
    
    ' 校验表格是否处于筛选状态
    If Not tbl.AutoFilter.FilterMode Then
        MsgBox "请先对表格执行筛选操作！"
        Exit Sub
    End If
    
    ' 遍历表格的每一行，收集可见行的行号
    For Each visibleRow In tbl.ListRows
        If Not visibleRow.Range.EntireRow.Hidden Then
            rowNumList = rowNumList & visibleRow.Range.Row & ", "
        End If
    Next visibleRow
    
    ' 展示结果
    If rowNumList <> "" Then
        rowNumList = Left(rowNumList, Len(rowNumList) - 2)
        MsgBox "筛选后可见记录的行号：" & rowNumList
    Else
        MsgBox "没有可见的记录！"
    End If
End Sub

方法二：用SpecialCells快速获取可见区域（更高效） #

如果你的数据是普通单元格区域（不是正式表格），可以用SpecialCells(xlCellTypeVisible)直接定位可见行，效率更高：

Sub GetFilteredRowNumbers_Range()
    Dim visibleRange As Range
    Dim cell As Range
    Dim rowNumList As String
    
    ' 定位到数据区域（假设表头在第一行，数据从A1开始）
    Set visibleRange = ThisWorkbook.Worksheets("Sheet1").Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible)
    
    ' 遍历第一列的可见单元格，跳过表头行
    For Each cell In visibleRange.Columns(1).Cells
        If cell.Row > 1 Then ' 跳过表头行（如果表头在第一行）
            rowNumList = rowNumList & cell.Row & ", "
        End If
    Next cell
    
    ' 展示结果
    If rowNumList <> "" Then
        rowNumList = Left(rowNumList, Len(rowNumList) - 2)
        MsgBox "筛选后可见记录的行号：" & rowNumList
    End If
End Sub

说明： #

• 两种方法都会跳过被筛选隐藏的行，只保留可见行的行号
• 方法一适合正式Excel表格，方法二适合普通单元格区域，按需选择就行

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