确定空“范围”删除后

Question

我在一个给定的对象范围，有时所有细胞的活动被删除（Range.Cells.Delete）

我周围玩，发现这些：在删除后

• 所有的细胞，该变量的类型仍然是Range，它Is Not Nothing
• 调用任何的错误它的成员结果“对象需要”

这是我的小分来测试它：

Sub test() 
    Dim r As Range 

    Debug.Print r Is Nothing  ' -> true 
    Set r = ActiveSheet.Range("a2") 
    Debug.Print TypeName(r)   ' -> Range 
    r.Cells.Delete shift:=xlShiftUp 
    On Error GoTo ErrHandler 
    Debug.Print r Is Nothing  ' -> False 
    Debug.Print TypeName(r)   ' -> Range 
    Debug.Print r.Address   ' -> "Err: Object required" 
    Debug.Print r.Cells.Count  ' -> "Err: Object required" 

    Exit Sub 
ErrHandler: 
    MsgBox "Err: " & Err.Description 
    Resume Next 
End Sub 

我的问题是：我怎么能确定（不希望错误处理）的对象是否是空Range？

到目前为止，我已经找到了

最短选项：

Function IsEmptyRange(testRange As Range) As Boolean 
    If TypeName(testRange) <> "Range" Then 
     IsEmptyRange = False 
    Else 
     On Error GoTo EmptyRange 
     IsEmptyRange = testRange.Cells.Count = 0 
     If False Then 
EmptyRange: 
      Err.Clear 
      IsEmptyRange = True 
     End If 
    End If 
End Function 

Answer 1

有这个上Daily Dose of Excel一个有趣的讨论指着一个类似的堆栈溢出question。 DDoE并没有给出“解决方案”，但讨论是关于“预期行为”的启示。 SO帖子（通过@DougGlancy），但它只是你的代码的一个版本（可能稍微好一点，因为不需要If False Then...构造）。

国际海事组织在这里的最佳做法是记住如果和什么时候可以，将参考变量设置为Nothing。例如。

Sub test() 
    Dim r As Range 

    Debug.Print r Is Nothing  ' -> true 
    Set r = ActiveSheet.Range("a2") 
    Debug.Print TypeName(r)   ' -> Range 
    r.Cells.Delete shift:=xlShiftUp 

    Set r = Nothing     ' -> end of problem 

    On Error GoTo ErrHandler 

    Debug.Print r Is Nothing  ' -> True 

    If Not r Is Nothing Then 
     Debug.Print TypeName(r)   ' -> Range 
     Debug.Print r.Address   ' -> "Err: Object required" 
     Debug.Print r.Cells.Count  ' -> "Err: Object required" 
    End If 

    Exit Sub 
ErrHandler: 
    MsgBox "Err: " & Err.Description 
    Resume Next 
End Sub 

的趋势可能是让范围处理的清理（即r会走出去的范围，一旦Sub完成），但它是更好地做清理自己。