셀 범위로 기준을 가진 VBA의 자동 필터

Question

동적 범위의 셀 값을 사용하여 필터링하려면 vba에서 autofilter를 사용하고 싶습니다.

ActiveSheet.Range("$A$1:$I$954092").AutoFilter Field:=1, Criteria1:=???? _ 
Operator:=xlFilterValues 

나는 당신이 지정하는 방법을 제안 할 수

Range("A1",Range("A1").End(xlDown)) 

같은 세포의 동적 범위를 사용하려면? 나는 Criteria1에 다음을 통과 시도

:

Range(###).Value 
Array(Range(###)) 

등

예.

Col1 Col2 Col3 Col4 
---------------------------- 
A  1  3  Y 
B  3  3  N 
A  2  2  N 
C  6  1  Y 
B  9  3  Y 

나는 값 Col1에 A & C과 행을 필터링 할.

Answer 1

@xificurC가 언급했듯이 고급 필터가 트릭을 수행합니다! 다음 코드를 사용하여 범위에 대한 참조를 사용하여 한 번에 여러 값을 필터링 할 수있었습니다.

Range("A1:A6").AdvancedFilter Action:=xlFilterInPlace, 
    CriteriaRange:=Range("A10:A12"), Unique:=False 

Answer 2

선호하는 방법을 사용하여 마지막 행을 정의한 다음 해당 값을 함수에서 사용하는 것이 한 가지 방법입니다. 같은 : 나는 강력하게 권합니다

Dim lr As Long 
lr = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row 
ActiveSheet.Range("$A$1:$I$" & lr).AutoFilter Field:=1, Criteria1:="Foo" 

완전히 길 아래에 잠재적 인 두통을 피하기 위해 범위 참조를받을 수 있습니다, 그러나 이것은 당신이 시작하는 것이다. 우리는 작은 자동 필터에 레코더를 사용하는 경우

Answer 3

우리는 다음을 참조하십시오

이

Sub Macro1() 
    Range("A1:C20").Select 
    Selection.AutoFilter 
    ActiveSheet.Range("$A$1:$C$20").AutoFilter Field:=2, Criteria1:=Array(_ 
     "Alice", "Boris", "Mike"), Operator:=xlFilterValues 
End Sub 

그래서 자동 필터이 Criteria1

의 1 기반의 배열이 원하는 목록이 시트에 말하고자 xx in column A이 목록에서 배열을 만듭니다.

Sub Macro11() 
    Dim N As Long, r As Range 
With Sheets("xx") 
     N = .Cells(Rows.Count, "A").End(xlUp).Row 
     ReDim ary(1 To N) 
     For i = 1 To N 
      ary(i) = .Cells(i, 1) 
     Next i 
End With 

    Range("A1:C20").AutoFilter 
    ActiveSheet.Range("$A$1:$C$20").AutoFilter Field:=2, Criteria1:=ary, Operator:=xlFilterValues 
End Sub