选择从当前单元格到下一个可见单元格的范围(VBA)

Sub FindNextVisibleCell()
    Dim currentCell As Range
    Dim nextCell As Range
    
    ' 获取当前选定单元格
    Set currentCell = Selection
    
    ' 循环查找下一个可见单元格
    For Each nextCell In currentCell.Offset(1).Resize(Rows.Count - currentCell.Row).Cells
        If nextCell.EntireRow.Hidden = False And nextCell.EntireColumn.Hidden = False Then
            ' 找到下一个可见单元格
            Exit For
        End If
    Next nextCell
    
    ' 选择下一个可见单元格
    nextCell.Select
End Sub