>> Application.Union(영역1, 영역2, ......, 영역30) Sub Select_Cells_Range() Application.Union(Columns("b"), Columns("d")).Select End Sub >> Application은 생략이 가능>> Union(Columns("b"), Columns("d")).Select 만 사용해도 가능 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 ..