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
15、[VBA入门到放弃笔记] Union方法_第1张图片

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


15、[VBA入门到放弃笔记] Union方法_第2张图片
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

15、[VBA入门到放弃笔记] Union方法_第3张图片

你可能感兴趣的