고급 필터 기준이 포함된 Excel VBA 예제(6개 사례)

일반적으로 필터를 사용합니다. Microsoft Excel에서 대량 데이터에서 특정 데이터를 분리해야 할 때. 고급 필터는 몇 가지 추가 기능을 추가합니다. 엑셀 VBA 이 고급 필터 옵션도 있습니다. Excel VBA의 몇 가지 예를 보여드리겠습니다. 여기에 고급 필터 기준이 있습니다.

기준이 있는 Excel VBA 고급 필터의 6가지 예

6 Excel VBA의 예 고급 필터 기준이 이 섹션에 표시됩니다.

이를 위해 다음 데이터세트를 사용합니다.

예 1:현재 위치의 데이터를 필터링하는 Excel VBA

VBA 매크로를 적용합니다. 기준에 따라 데이터를 필터링하고 필터링된 데이터를 현재 위치에 배치합니다.

B16:E17 범위 내 , 우리는 기준을 설정합니다.

1단계:

• 먼저 개발자 로 이동합니다. 탭.
• 매크로 기록을 클릭합니다. 리본에서.
• 새 대화 상자가 나타납니다. 거기에 매크로 이름을 설정하고 확인을 누릅니다. .

2단계:

• 이제 매크로 를 클릭하십시오. 리본에.
• 매크로 선택 및 들어가기 그것.

3단계:

• 이제 다음 VBA 를 복사합니다. 코드를 작성하고 이를 명령 모듈에 넣습니다.

Sub Filter_Criteria()
Dim data As Range
Dim criteria As Range
Set data = Range("B4:E14")
Set criteria = Range("B16:E17")
data.AdvancedFilter xlFilterInPlace, criteria
End Sub

4단계:

• 이제 F5 키를 누릅니다. 버튼을 눌러 코드를 실행하세요.

시카고 판매를 표시하는 기준을 설정했습니다. 저장만 하고 결과는 다음과 같습니다.

여기 같은 시트에 우리의 데이터와 기준이 있습니다.

자세히 알아보기: 고급 필터를 적용하여 Excel의 다른 위치로 복사하는 방법

예시 2:데이터 및 기준이 다른 시트에 제공된 경우 고급 필터를 위한 Excel VBA

이 예에서는 기준과 데이터가 다른 시트에 있는 상황에 대처하는 방법을 보여줍니다.

데이터는 Criteria_Different_Sheet라는 시트에 있습니다. 및 기준은 시트 기준에 나와 있습니다. .

1단계:

• Alt+F11 누르기 명령 모듈을 입력합니다.
• 명령 모듈에 아래 코드를 입력하세요.

Sub Filter_Criteria_2()
 Dim data As Range
 Dim criteria As Range
   Set data = Sheets("Criteria_Different_Sheet").Range("B4:E14")
   Set criteria = Sheets("Criteria").Range("B4:E5")
   data.AdvancedFilter xlFilterInPlace, criteria
End Sub

2단계:

• F5 키를 누릅니다. 코드를 실행합니다.

이러한 방식으로 다른 시트에 기준이 주어졌을 때 데이터를 필터링할 수 있습니다.

자세히 알아보기: Excel의 한 열에 여러 기준에 따라 고급 필터 적용

예시 3:데이터를 필터링하고 동일한 시트의 다른 위치에 붙여넣는 Excel VBA

필터링된 데이터를 다른 위치에 붙여넣으려면 아래 단계를 따르세요.

1단계:

• Alt+F11 키를 누릅니다. 명령 모듈을 입력합니다.
• 명령 모듈에 다음 코드를 작성하세요.

Sub Filter_Criteria_3()
 Dim data As Range
 Dim criteria As Range
Set data = Range("B4:E14")
Set criteria = Range("B16:E17")
data.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=criteria, CopyToRange:=Range("G4:J14")
End Sub

2단계:

• F5 키를 누르십시오. 버튼을 누르면 코드가 실행됩니다.

필터링된 데이터가 다른 위치에 붙여넣어진 것을 확인하십시오. 복사 범위 명령은 데이터를 붙여넣을 다른 위치를 지정합니다.

관련 콘텐츠: 고급 필터를 사용하여 Excel의 다른 시트에 데이터를 복사하는 방법

유사한 수치:

• Excel VBA:범위 내 여러 기준의 고급 필터(5가지 방법)
• 고급 필터를 사용하여 Excel에서 빈 셀을 제외하는 방법(3가지 쉬운 트릭)
• Excel 고급 필터 [여러 열 및 기준, 수식 및 와일드카드 사용]

예시 4:Excel VBA를 사용하여 고유 데이터만 필터링

이 Excel VBA에서 고유한 데이터를 얻을 수 있습니다. 고급 필터. 이 과정에서 첫 번째 데이터 세트에 발생 항목이 있고 두 번째 항목 이상은 제거됩니다.

1단계:

• Alt+F11을 눌러 명령 모듈을 입력합니다. .
• 명령 모듈에 다음 코드를 입력하세요.

Sub Filter_Criteria_4()
 Dim data As Range
 Dim criteria As Range
Set data = Range("B4:E14")
Set criteria = Range("B16:E17")
data.AdvancedFilter xlFilterInPlace, criteria, , True
End Sub

2단계:

• 이제 F5 키를 눌러 코드를 실행합니다. .

우리는 1위 를 표시했습니다. 녹색으로 발생하고 두 번째 노란색으로 발생. 코드를 실행하면 노란색 셀이 제거됩니다.

자세히 알아보기: Excel에서만 고유 레코드에 대해 고급 필터를 사용하는 방법

예 5:Excel VBA에서 기준 없이 중복 필터링 및 제거

기준을 설정하지 않고 중복을 제거할 수 있습니다. 아래 단계를 참조하세요.

1단계:

• VBA 로 이동 Alt+F11을 누르는 명령 모듈
• 명령 모듈에 다음 코드를 복사하여 붙여넣습니다.

Sub Filter_Criteria_5()
 Dim data As Range
 Dim criteria As Range
Set data = Range("B4:E14")
data.AdvancedFilter xlFilterInPlace, , , True
End Sub

2단계:

• F5 키를 누릅니다. 키를 누르면 코드가 실행됩니다.

데이터세트를 살펴보세요. 여기에서 중복으로 표시했습니다. 코드를 적용한 후 첫 번째 발생은 데이터세트에 남아 있고 나머지는 제거됩니다.

자세히 알아보기: Excel 고급 필터가 작동하지 않음(2가지 이유 및 솔루션)

예시 6:데이터 필터링을 위해 운영자 로그온 기준 삽입

기준에서 연산자를 사용하여 데이터를 필터링할 수 있습니다. 이에 대해서는 다음 단계를 참조하십시오.

1단계:

• Alt+F11 누르기 명령 모듈을 입력합니다.
• 모듈에 아래 코드를 입력하세요.

Sub Filter_Criteria_7()
 Dim data As Range
 Dim criteria As Range
Set data = Range("B4:E14")
Set criteria = Range("B16:E17")
data.AdvancedFilter xlFilterCopy, criteria, Range("G4:J14")
End Sub

2단계:

• F5 키를 누릅니다. 코드를 실행합니다.

결과적으로 $1.00 이상의 값을 얻습니다. .

자세히 알아보기: VBA에서 고급 필터를 사용하는 방법(단계별 지침)

기억해야 할 사항

• 각 데이터 열에는 고유한 제목이 있어야 합니다.
• 데이터세트에는 빈 행이 허용되지 않습니다.

결론

이 기사에서는 6 Excel VBA 고급 필터 기준의 예. 이것이 귀하의 요구를 충족시키기를 바랍니다. Exceldemy.com 웹사이트를 살펴보세요. 의견 상자에 제안 사항을 제공하십시오.

관련 기사

• Excel의 여러 기준을 사용한 고급 필터(15개의 적절한 예)
• 동적 고급 필터 Excel(VBA 및 매크로)
• Excel의 기준 범위가 있는 고급 필터(18개 응용 프로그램)
• Excel의 기준 범위에 텍스트가 포함된 경우 고급 필터를 사용하는 방법
• Excel 고급 필터:"포함하지 않음" 적용(2가지 방법)