필터링 된 열에서 가능한 모든 옵션을 반복하십시오.

Question

열의 필터를 사용하여 필터의 각 가능한 선택을 수행하는 매크로에 대한 도움말을 찾고 있습니다. 그런 다음 필터링 된 선택 항목을 복사하여 붙여넣고 필터를 지우고 필터 범위에서 다음 가능한 옵션으로 다시 적용합니다. 이것에 대한 아이디어가 있습니까? 미리 감사드립니다.

Answer 1

이것은 예제 일 뿐이며 ............ 데이터와 스키마에 맞게 수정해야합니다. 우리는 유형(즉 알파, 베타, 감마)에 모든 옵션을 실행하고 개별적으로 캡처 할

: 우리가 탭 같은 데이터를 말한다. 이 매크로 :

Sub macroxx() 
    Dim sh1 As Worksheet, sh2 As Worksheet 
    Set sh1 = Sheets("data") 
    Set sh2 = Sheets("results") 
    Dim ary(1 To 3) As String, tablee As Range 
    Dim i As Long, j As Long 

    j = 1 
    ary(1) = "alpha" 
    ary(2) = "beta" 
    ary(3) = "gamma" 
    Set tablee = sh1.Range("A1:C28") 

    For i = 1 To 3 
     tablee.AutoFilter Field:=3, Criteria1:=ary(i) 
     tablee.Copy sh2.Cells(1, j) 
     j = j + 4 
    Next i 
End Sub 

우리는 옵션을 실행하고 결과에 탭 결과를 배치 : 먼저 자신의 시도를 제공 할 필요가