活动工作表无已用区域时，ActiveSheet.UsedRange返回值探究

问题现象 #

从《Excel 2019 Power Programming with VBA》第243页的按值筛选负数的VBA示例中，发现两种异常场景：

• 当活动工作表完全无数据时，选中单个单元格，程序会弹出「No cells qualify.」提示；
• 选中空区域时，程序直接退出，无任何提示。

核心疑惑：空白工作表中ActiveSheet.UsedRange的返回值到底是什么？

原因解析 #

Excel的特性决定：完全空白的工作表，其UsedRange默认指向A1单元格（即使A1没有内容、格式或公式）。这直接导致两种场景的差异：

1. 选中单个单元格时，代码执行Set WorkRange = ActiveSheet.UsedRange，WorkRange被设为A1。后续SpecialCells(xlConstants, xlNumbers)找不到符合条件的单元格，但WorkRange本身不为Nothing，程序会走到最后判断FoundCells为空，弹出提示。
2. 选中空区域时，Application.Intersect(Selection, ActiveSheet.UsedRange)返回Nothing，触发If WorkRange Is Nothing Then Exit Sub，直接退出程序，因此没有提示。

代码修正方案 #

要统一两种场景的提示逻辑，并正确处理空白工作表的情况，可对代码做如下优化：

Option Explicit

Sub SelectByValue()
    Dim Cell As Range
    Dim FoundCells As Range
    Dim WorkRange As Range

    If TypeName(Selection) <> "Range" Then Exit Sub
    
    ' 确定要处理的范围
    If Selection.CountLarge = 1 Then
        Set WorkRange = ActiveSheet.UsedRange
        ' 校验：如果UsedRange是空白的A1，重置为Nothing
        If WorkRange.Address = "$A$1" And IsEmpty(WorkRange.Value) Then
            Set WorkRange = Nothing
        End If
    Else
        Set WorkRange = Application.Intersect(Selection, ActiveSheet.UsedRange)
    End If
    
    ' 无有效范围直接提示退出
    If WorkRange Is Nothing Then
        MsgBox "No cells qualify."
        Exit Sub
    End If
    
    ' 缩小范围到常量数字单元格
    On Error Resume Next
    Set WorkRange = WorkRange.SpecialCells(xlConstants, xlNumbers)
    On Error GoTo 0
    
    ' 无符合条件的数字单元格
    If WorkRange Is Nothing Then
        MsgBox "No cells qualify."
        Exit Sub
    End If
    
    ' 筛选负数单元格
    For Each Cell In WorkRange
        If Cell.Value < 0 Then
            If FoundCells Is Nothing Then
                Set FoundCells = Cell
            Else
                Set FoundCells = Union(FoundCells, Cell)
            End If
        End If
    Next Cell
    
    ' 最终提示或选中
    If FoundCells Is Nothing Then
        MsgBox "No cells qualify."
    Else
        FoundCells.Select
        MsgBox "Selected " & FoundCells.Count & " cells."
    End If
End Sub

修正点说明： #

• 增加空白UsedRange校验：判断UsedRange是否为A1且为空，若是则将WorkRange设为Nothing，统一后续逻辑；
• 提前判断WorkRange是否为空，直接弹出提示后退出，消除两种场景的提示差异；
• 优化变量类型：将Cell As Object改为Cell As Range，符合VBA类型规范。

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