1.원 범위에

 - 아래 영상 참고

​

2. 다른 범위에

 - 고급필터

 - Filter 함수

Sub Macro1()

    Dim Asht As Worksheet
    Dim lR As Long
    Dim lC%, xFF As Integer
    Dim rngAl As Range
    Dim Ary As Variant
    
        Application.ScreenUpdating = False
        Set Asht = ActiveSheet
        
        If Asht.AutoFilterMode Then
            Asht.AutoFilterMode = False
        End If
        
        With Asht
            lR = .Cells(.Rows.Count, "A").End(xlUp).Row
            lC = .Cells(1, .Columns.Count).End(xlToLeft).Column
            Set rngAl = .Range(.Cells(1, "A"), .Cells(lR, lC))
        End With
        
        xFF = 1
        Ary = Array("서울", "광주", "제주")
        
        rngAl.AutoFilter Field:=xFF, Criteria1:=Ary, Operator:=xlFilterValues
    
End Sub


Sub Macro1_1()

    Dim Asht As Worksheet
    
        Application.ScreenUpdating = False
        Set Asht = ActiveSheet
        
        If Asht.AutoFilterMode Then
            Asht.AutoFilterMode = False
        End If
    
End Sub

​

보조열에다 해당조건을 and해서 결과를 나타낸후 필터 하면 되겠습니다