定义range对象变量，能设置初始值为空么，程序如下，range对象必须赋值后程序才正确

乐古

最开始编的第一个程序为
Sub 选取单元格区域内值为2的单元格()
   Dim ran As Range
    Dim ge As Range
   
    For Each ge In Range("a1:e10")
        If ge.value = 2 Then
            Set ran = Union(ran, ge)
            Exit For
        End If
    Next ge
    ran.Select
End Sub


然后运行之后出现错误，于是查找发现是ran变量没有赋值
于是再写了一个程序
Sub 选取单元格区域内值为2的单元格()
    Dim ran As Range
    Dim ge As Range

    For Each ge In Range("a1:e10")
        If ge.value = 2 Then
            Set ran = ge
            Exit For
        End If
    Next ge

    For Each ge In Range("a1:e10")
        If ge.value = 2 Then
            Set ran = Union(ran, ge)
        End If
    Next ge

    ran.Select

End Sub

但我觉得第二个程序略显繁杂了，求高手指教，range变量有空值没有，或者说缺省值？另外我的第二个程序能否有简化？谢谢！

jpj123

1. Sub 选取单元格区域内值为2的单元格()
   
2.    Dim ran As Range
   
3.     Dim ge As Range
   
4.     For Each ge In Range("a1:e10")
   
5.         If ge.Value = 2 Then
   
6.           If ran Is Nothing Then
   
7.             Set ran = ge
   
8.             Else
   
9.             Set ran = Union(ran, ge)
   
10.           End If
    
11.         End If
    
12.     Next ge
    
13.     ran.Select
    
14. End Sub

复制代码

jpj123

请测试附件   

乐古

jpj123 发表于 2015-3-1 20:02

非常谢谢，高手啊，我知道nothing，但没想到还可以这样表达，十分感谢！

乐古

jpj123 发表于 2015-3-1 20:05
请测试附件

谢谢了，老师，在下受益匪浅！

RandomRen

thanks for your sharing ...

dyj703201

jpj123 发表于 2015-3-1 20:02

谢谢，学到了