如何在VB.NET中选中Excel筛选后的非相邻行？

当你用SpecialCells(xlCellTypeVisible)获取筛选后的可见区域时，非相邻行会被拆分成多个Area对象，直接读取Rows.Count只会返回第一个Area的行数。以下两种简便方法可以获取所有可见行的合集：

方法1：遍历Areas合并Range #

利用Union方法将所有可见Area合并为单个Range对象：

' 假设已完成筛选，targetRange是你设置筛选的区域（A13:G68偏移后排除表头的范围）
Dim visibleAreas As Excel.Range = targetRange.SpecialCells(Excel.XlCellType.xlCellTypeVisible)
Dim allVisibleRows As Excel.Range = Nothing

For Each area As Excel.Range In visibleAreas.Areas
    If allVisibleRows Is Nothing Then
        allVisibleRows = area
    Else
        allVisibleRows = DirectCast(ExcelApp.Union(allVisibleRows, area), Excel.Range)
    End If
Next

' 验证结果：此时allVisibleRows.Rows.Count会显示正确的可见行数（示例中为2）
If allVisibleRows IsNot Nothing Then
    ' 这里写你的后续操作逻辑，比如读取行数据
End If

方法2：逐行判断可见性 #

直接遍历目标区域的每一行，筛选出未隐藏的行并合并：

Dim targetRange As Excel.Range = ExcelApp.ActiveSheet.Range("A13:G68").Offset(1, 0)
' 应用筛选
targetRange.AutoFilter(Field:=3, Criteria1:="=India")

Dim allVisibleRows As Excel.Range = Nothing

For Each row As Excel.Range In targetRange.Rows
    If Not row.EntireRow.Hidden Then
        If allVisibleRows Is Nothing Then
            allVisibleRows = row
        Else
            allVisibleRows = DirectCast(ExcelApp.Union(allVisibleRows, row), Excel.Range)
        End If
    End If
Next

' 后续操作
' 若不需要保留筛选，可关闭：targetRange.AutoFilter()

注意事项 #

• 确保ExcelApp是你初始化的Excel应用程序实例，避免跨实例引用错误
• 操作前需判断allVisibleRows是否为Nothing，防止空引用异常
• 两种方法均无需删除筛选行，可保留筛选状态

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