[스크랩] 고급필터(AdvancedFilter) 기본코드 (엑셀 VBA 매크로)

 

 

 

고급 필터의 가장 기본적인 코드 (고급필터 작성시 가장 주의점 : 필드명(제목행)의 일치)

 

Sub advanced_Filter()

    Dim rngData As Range
    Dim rngCri As Range
    Dim rngT As Range
   
    Set rngData = Range("A1:G11")                  '데이터 영역
    Set rngCri = .Range("I1:J2")                       '필터링 조건이 입력될 영역
    Set rngT = Range("A15")                            '가져올 필드명(제목행)이 있는 복사될 위치
 

    rngData.AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=rngCri, _
        CopyToRange:=rngT, _
        Unique:=False 

End Sub
 

 

 

 

            

 

 

             

 

 

 

고급필터 필터링 옵션들 참조.
      C :            C로 시작되는 데이터. 
                      (=C  와 구분. =C는 데이터에 C 즉 한 자만 있는 경우. 즉, 전체일치)

      >=L  :        첫 문자가 L보다 크거나 같은 데이터
      =???? :       문자 길이가 4자인 데이터
      <>*C*  :    C라는 문자가 포함되지 않은 데이터

      ~?  :          ? 있는 데이터 (? 와 * 는 와일드카드 이므로 ~(tilde)와 함께 사용
      =  :            공백이 포함된 데이터

      <>  :          공백이 없는 데이터