Excel筛选单元格区域选择：解决VBA无法向上选择的问题

1. 向上定位到下一个可见单元格 #

你现有代码仅支持向下跳转，要实现向上定位到下一个可见单元格，只需将偏移量改为-1即可：

Sub GoToNextVisibleCellAbove()
    Do
        ActiveCell.Offset(-1, 0).Select
    Loop While ActiveCell.EntireRow.Hidden = True
End Sub

运行该宏，就能从当前选中单元格向上定位到第一个未隐藏的可见行单元格。

2. 实现筛选后的区域选择 #

针对你需要的区域选择效果，提供以下几种实用代码：

选中当前单元格到上方连续可见单元格的区域 #

Sub SelectVisibleRangeUp()
    Dim startCell As Range
    Set startCell = ActiveCell
    
    Dim topVisibleCell As Range
    Set topVisibleCell = startCell
    
    ' 向上遍历至第一个可见单元格或行首
    Do While topVisibleCell.Row > 1 And topVisibleCell.Offset(-1, 0).EntireRow.Hidden = True
        Set topVisibleCell = topVisibleCell.Offset(-1, 0)
    Loop
    
    ' 若上方存在可见单元格，选中区域
    If topVisibleCell.Row < startCell.Row Then
        Range(topVisibleCell, startCell).Select
    End If
End Sub

选中当前单元格到下方连续可见单元格的区域 #

Sub SelectVisibleRangeDown()
    Dim startCell As Range
    Set startCell = ActiveCell
    
    Dim bottomVisibleCell As Range
    Set bottomVisibleCell = startCell
    
    ' 向下遍历至第一个可见单元格或表格末尾
    Do While bottomVisibleCell.Row < ActiveSheet.UsedRange.Rows.Count And bottomVisibleCell.Offset(1, 0).EntireRow.Hidden = True
        Set bottomVisibleCell = bottomVisibleCell.Offset(1, 0)
    Loop
    
    ' 若下方存在可见单元格，选中区域
    If bottomVisibleCell.Row > startCell.Row Then
        Range(startCell, bottomVisibleCell).Select
    End If
End Sub

选中当前列所有可见单元格 #

如果需要直接选中当前列筛选后的全部可见单元格，可使用这段代码：

Sub SelectAllVisibleInColumn()
    ActiveCell.EntireColumn.SpecialCells(xlCellTypeVisible).Select
End Sub

以上代码均可直接复制到Excel的VBA编辑器中使用，可根据需求绑定快捷键或直接运行。

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