[已解决]关于union的问题，请高手帮助解答！！！

pluto720

    Sub dd()
      Dim rg As Range, x As Integer
      For x = 2 To 10 Step 2   
        If x = 2 Then Set rg = Cells(x, 1)

        Set rg = Union(rg, Cells(x, 1))
      Next x                             
      rg.Select

    End Sub


我的问题是: If x = 2 Then Set rg = Cells(x, 1)        当x=2， rg=A2;
                 Set rg = Union(rg, Cells(x, 1))   由于上一句中rg=a2, 这句话中是不是同是存在两个A2（union（range（“A2”）,                                                                range(“A2”)）？
如果不是的话，请详解一下，当x=2和x=4时， Set rg = Union(rg, Cells(x, 1)) 包含的单元格？

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-1-3 13:10

1. Sub dd()
   
2.     Dim rg As Range, x As Integer
   
3.     For x = 2 To 10 Step 2
   
4.         If x = 2 Then Set rg = Cells(x, 1)
   
5.         Debug.Print "union前：" & rg.Address
   
6.         Set rg = Union(rg, Cells(x, 1))
   
7.         Debug.Print "union后：" & rg.Address
   
8.     Next x
   
9.     rg.Select
   
10. End Sub
    

复制代码

看下立即窗口的内容。

跳转到最佳答案楼层

hwc2ycy

当x=2和x=4时， Set rg = Union(rg, Cells(x, 1)) 包含的单元格？
你直接在set rg=union(rg,cells(x,1))这里下断点嘛。
debug.print rg.address
Set rg = Union(rg, Cells(x, 1))
debug.print rg.address
stop

hwc2ycy

x=2的时候就是cells(2,1)
x=4时就是 cells(2,1),cells(4,1)这两个单元格了。

hwc2ycy

1. Sub dd()
   
2.     Dim rg As Range, x As Integer
   
3.     For x = 2 To 10 Step 2
   
4.         If x = 2 Then Set rg = Cells(x, 1)
   
5.         Debug.Print "union前：" & rg.Address
   
6.         Set rg = Union(rg, Cells(x, 1))
   
7.         Debug.Print "union后：" & rg.Address
   
8.     Next x
   
9.     rg.Select
   
10. End Sub
    

复制代码

看下立即窗口的内容。

hwc2ycy

pluto720

hwc2ycy 发表于 2014-1-3 13:09
x=2的时候就是cells(2,1)
x=4时就是 cells(2,1),cells(4,1)这两个单元格了。

可是在x=2的时候，通过Set rg = Cells(x, 1)，rg=A2;当运行Set rg = Union(rg, Cells(x, 1)) ，是否包含A2（rg）和A2(Cells(x, 1))? 不好意思，是新手。

hwc2ycy

pluto720 发表于 2014-1-3 13:15
可是在x=2的时候，通过Set rg = Cells(x, 1)，rg=A2;当运行Set rg = Union(rg, Cells(x, 1)) ，是否包含A ...

结果还是A2.

pluto720

hwc2ycy 发表于 2014-1-3 13:21
结果还是A2.

我想问一下中间的过程我理解的是否正确？

hwc2ycy

pluto720 发表于 2014-1-3 13:25
我想问一下中间的过程我理解的是否正确？

1.     Dim rg As Range
   
2.     Set rg = [a1]
   
3.     Debug.Print "union前rg--" & rg.Address
   
4.     Set rg = Union(rg, [b3:c4])
   
5.     Debug.Print "union后rg--" & rg.Address
   
6.     Set rg = Union(rg, [b3:c4])
   
7.     Debug.Print "union后rg--" & rg.Address
   
8.     Set rg = Union(rg, [b3])
   
9.     Debug.Print "union后rg--" & rg.Address
   
10.     Set rg = Union(rg, [b4:c5])
    
11.     Debug.Print "union后rg--" & rg.Address
    
12.     Set rg = Union(rg, [a1:c6])
    
13.     Debug.Print "union后rg--" & rg.Address

复制代码

再写个例子，你看看，重复的区域。