VBA中的union问题

32119901

请教：在a1至d10中选中与A1相同的单元格。
Sub aak1()
Dim ran As Range, n As Range
For Each ran In Range("a1:d10")
If ran.Value = Range("a1").Value Then
Set n = Union(Range("a1"), ran)
End If
Next
n.Select
End Sub
得到结果是错的,正确是：
Sub aak2()
Dim ran As Range, n As Range
Set n = Range("a1")
For Each ran In Range("a1:d10")
If ran.Value = Range("a1").Value Then
Set n = Union(n, ran)
End If
Next
n.Select
End Sub
为什么啊？

duquancai

第一个程序      常量。。。。。。。。。

32119901

为什么需要常量啊？只要将与A1相同的都选定就可以了啊？能否说清楚点啊？

山菊花

第一个程序中：
Set n = Union(Range("a1"), ran)
变量n保存A1与当前单元格，找到新的单元格后，将新的值替换原来的值，这是在重复小猴子掰玉米的故事。
第二个程序：
Set n = Union(n, ran)
把符合条件的单元格，叠加到变量n中，保存了所有的结果，达到你预期的目标。