VBA Invert Range Selection

Sub InvertSelection()
    lastrow = ActiveSheet.UsedRange.Cells(Rows.Count, 1).End(xlUp).row
    ' invert selection 하고 싶은 영역
    Set s1 = Union(Range("a2", "d11"), Range("a1", "x1"))
    ' invert selection 이 적용될 전체 영역
    Set s2 = Range("A1:X" & lastrow)
    Set sinv = Nothing
    For Each s In s2
        If Intersect(s, s1) Is Nothing Then
            If sinv Is Nothing Then
                Set sinv = s
            Else
                Set sinv = Union(sinv, s)
            End If
        End If
    Next
    If sinv Is Nothing Then
    Else
        sinv.Select
    End If
End Sub
==> 실행 결과. Range("A2","D11"), Range("A1","X1")을 제외하고 Range("A1:X" & lastrow) 선택.

 

 

※ 출처

https://apple.stackexchange.com/a/273251