[已解决]VBA UNION用法求助

夜来听笛

Sub dd() 'union示例
      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

Set rg = Union(rg, Cells(x, 1)) 这一句
VBA 视频里讲什么把老的放进去,再放个新的.听了两三遍也没明白他到底是要干什么啊. 如果 rg = Cells(x, 1) 那么 下面的union括号里 rg 不就等于 Cells(x, 1)嘛. 哪里来的老的新的? 还有这个代码到底要合并偶数行还是全部啊? 如果是偶数行那么Cells(x, 1) 每一个找到的偶数行都计算了,那么加入RG也说得通,但是想想又不对,把所有数的集合都放进去不久可以了嘛干嘛还分基数偶数.请哪位高手讲解一下,用简洁明了的话说行吗? 不要说了半天都在绕圈子...............

最佳答案

月排行榜 / 总排行榜

hsl215

2015-8-20 23:11

就我的理解，若有不对之处请指正，谢谢！
  If x = 2 Then Set rg = Cells(x, 1)
这句的意思是将第一列的偶数行即A2赋值给rg
        Set rg = Union(rg, Cells(x, 1))
这句的意思是将rg(老的即A2)与A2合并即A2与A2合并，
当X＝4时将rg与A4合并即A2与A4合并
当X＝6时将rg与A4合并即A2、A4与A6合并

跳转到最佳答案楼层

dsmch

s=0
for x=2 to 10
s=s+x
next
msgbox s
和上面的类似

hsl215

就我的理解，若有不对之处请指正，谢谢！
  If x = 2 Then Set rg = Cells(x, 1)
这句的意思是将第一列的偶数行即A2赋值给rg
        Set rg = Union(rg, Cells(x, 1))
这句的意思是将rg(老的即A2)与A2合并即A2与A2合并，
当X＝4时将rg与A4合并即A2与A4合并
当X＝6时将rg与A4合并即A2、A4与A6合并