<01-8 합집합>

Dim c As Range, uni As Range

For Each c In Range("a1:a10")
    If c = 4 Or c = 6 Then      ‘셀의 값이 4 또는 6이면 무시해라
    Else                       ‘4 또는 6이 아니면 아래 코드 실행
      If uni Is Nothing Then    ‘처음에는 uni변수에 아무것도 없으므로
        Set uni = c            ‘uni 변수에 c변수에 들어온 값을 넣고
      Else                     ‘두번째 부터는 uni변수에 값이 들어오므로
        Set uni = Union(uni, c)  ‘기존 uni변수에 보관된 셀과 새로운 c변수의 값을 합함
      End If
    End If
Next

If uni Is Nothing = 0 Then uni.Select  ‘uni변수에 보관된 셀이 있으면 선택해라

출처: https://lesserpainbetterlife.tistory.com/812 [전진수블로그 ✝ = ♥:티스토리]