15、[VBA入门到放弃笔记] Union方法

Union方法是Application对象的方法，但是因为它是‘全局’的成员，因此不需要在前面写上Application。

• Union用于联合同一个工作表中多个单元格区域，生成一个[整体]单元格区域。其语法如下：
  expression.Union(Arg1, Arg2, ...)
  expression 可选。该表达式返回一个 Application对象。
  Arg1, Arg2, ... Range 类型，必需。必须至少指定两个 Range对象。

---

Sub hh()'同时选中多个数据区域
    Dim Rng As Range
    Set Rng = Union(Range("a1"), Range("c1"), Range("b2:c3"))
    Rng.Select
End Sub

---

练习：筛选A部门的数据明细。

Sub 联合单元格区域()
    Dim Rng As Range, i As Integer
    For i = 2 To 11
        If Cells(i, 1) = "A" Then '部门为A的数据才进行筛选
            If Rng Is Nothing Then '初始的时候Rng对象为nothing
                Set Rng = Cells(i, 1).Resize(1, 3) '给Rng指定A部门第一条数据的单元格区域,然后Rng不再是nothing，而是A2:C2单元格区域（对象）
            Else '联合A部门剩下的单元格区域，将其生成一个[整体]的单元格区域
                Set Rng = Union(Cells(i, 1).Resize(1, 3), Rng)
            End If
        End If
    Next
    Rng.Select '辅助代码可以删除，将A部门的明细数据所在的单元格区域都全部选中
    Rng.Copy Range("f2") '[整体]的单元格区域复制到F2单元格
End Sub