Union方法是Application對象的方法，但是因為它是‘全局’的成員，因此不需要在前面寫上Application。

• Union用于聯(lián)合同一個工作表中多個單元格區(qū)域，生成一個[整體]單元格區(qū)域。其語法如下：
  expression.Union(Arg1, Arg2, ...)
  expression 可選。該表達式返回一個 Application對象。
  Arg1, Arg2, ... Range 類型，必需。必須至少指定兩個 Range對象。

Sub hh()'同時選中多個數(shù)據(jù)區(qū)域
    Dim Rng As Range
    Set Rng = Union(Range("a1"), Range("c1"), Range("b2:c3"))
    Rng.Select
End Sub

練習：篩選A部門的數(shù)據(jù)明細。

Sub 聯(lián)合單元格區(qū)域()
    Dim Rng As Range, i As Integer
    For i = 2 To 11
        If Cells(i, 1) = "A" Then '部門為A的數(shù)據(jù)才進行篩選
            If Rng Is Nothing Then '初始的時候Rng對象為nothing
                Set Rng = Cells(i, 1).Resize(1, 3) '給Rng指定A部門第一條數(shù)據(jù)的單元格區(qū)域,然后Rng不再是nothing，而是A2:C2單元格區(qū)域（對象）
            Else '聯(lián)合A部門剩下的單元格區(qū)域，將其生成一個[整體]的單元格區(qū)域
                Set Rng = Union(Cells(i, 1).Resize(1, 3), Rng)
            End If
        End If
    Next
    Rng.Select '輔助代碼可以刪除，將A部門的明細數(shù)據(jù)所在的單元格區(qū)域都全部選中
    Rng.Copy Range("f2") '[整體]的單元格區(qū)域復制到F2單元格
End Sub