엑셀 VBA 셀 범위선택하기(2), VBA Union

<<< Union >>>

 

Application.Union(영역1, 영역2, ......, 영역30)

 

< 1번 > 

 

Sub Select_Cells_Range()

 

    Application.Union(Columns("b"), Columns("d")).Select

 

End Sub

 

>> Application은 생략이 가능

>> Union(Columns("b"), Columns("d")).Select 만 사용해도 가능

 

 

반응형

< 2번 >

 

Sub Select_Cells_Range()

 

    Dim c As Range, r As Range

 

    For Each c In Range("B2:B11")

 

        If c = "A0002" Or c = "A0004" Then

 

    Else

 

            If r Is Nothing Then

 

                Set r = c

 

            Else

 

                Set r = Union(r, c)

 

            End If

 

        End If

 

    Next

 

    If r Is Nothing = False Then r.Select

 

End Sub