union方法的问题

silent_hunter

代码简单，就不上文件了，麻烦各位随便用一个工作表模块试一下。
union联合了第1和第5行，那么selectedRng.Rows.Count就应该是2。实际上无论联合了多少行，union联合后都是1行。
Sub test1()
Dim selectedRng As Range
Set selectedRng = Rows(1)
Set selectedRng = Union(selectedRng, Rows(5))
Debug.Print selectedRng.Rows.Count
End Sub






除非，union联合的区域本来就上下连在一起，比如下面的代码就能正确显示4。
Sub test2()
Dim selectedRng As Range
Set selectedRng = Rows(1)
Set selectedRng = Union(selectedRng, Rows(2))
Set selectedRng = Union(selectedRng, Rows(3))
Set selectedRng = Union(selectedRng, Rows(4))
Debug.Print selectedRng.Rows.Count
End Sub

wdx223

1. Sub test1()
   
2. Dim selectedRng As Range
   
3. Set selectedRng = Rows(1)
   
4. Set selectedRng = Union(selectedRng, Rows(5))
   
5. Debug.Print selectedRng.Areas(2).Rows.Count
   
6. End Sub
   

复制代码

kimmyyang

没有毛病，你最后看的是行数，不是区域行数

silent_hunter

wdx223 发表于 2019-5-27 17:39

还是1啊。                                

lss001

区域问题！！！

lss001

区域问题→
其Set Rng = Union(Rows(1), Rows(2))只是一个区域即相连区域！
而Set Rng = Union(Rows(1), Rows(5))则是两个区域即间隔区域！
Rng.Rows.Count只能统计一个区域，那么要统计联合区域只能各区域加总！
Sub test1()
  Dim Rng As Range
  Set Rng = Union(Rows(1), Rows("3:5"))
  x = 0
  For i = 1 To Rng.Areas.Count'区域总数
     x = x + Rng.Areas(i).Rows.Count
  Next
End Sub