VBA로 필터링 된 목록을 반복하는 가장 쉬운 방법은 무엇입니까?

Question

Excel에서 자동 필터를 설정하고 VBA 코드로 한 열의 모든 보이는 데이터를 반복하려는 경우 가장 쉬운 방법은 무엇입니까?

필터링 된 숨겨진 행을 모두 포함하지 않아야하므로 위에서 아래까지의 단순 범위가 도움이되지 않습니다.

좋은 아이디어가 있습니까? 감사.

Answer 1

셀에 A2:A11의 숫자가 1 ~ 10이고 autofilter가 A1 인 것으로 가정합니다. 이제 5보다 큰 숫자 만 표시하도록 필터링합니다 (예 : 6, 7, 8, 9, 10).

만 볼 수 세포 인쇄됩니다이 코드 :

Sub SpecialLoop() 
    Dim cl As Range, rng As Range 

    Set rng = Range("A2:A11") 

    For Each cl In rng 
     If cl.EntireRow.Hidden = False Then //Use Hidden property to check if filtered or not 
      Debug.Print cl 
     End If 
    Next 

End Sub 

아마도 SpecialCells와 더 나은 방법이 있지만, 위의 엑셀 2003

편집에 나를 위해

그냥 볼 일을 더 좋은 방법은 SpecialCells :

Sub SpecialLoop() 
    Dim cl As Range, rng As Range 

    Set rng = Range("A2:A11") 

    For Each cl In rng.SpecialCells(xlCellTypeVisible) 
     Debug.Print cl 
    Next cl 

End Sub 

Answer 2

A1에서 필터링 된 데이터를 아래쪽으로 가정하는 편도;

dim Rng as Range 
set Rng = Range("A2", Range("A2").End(xlDown)).Cells.SpecialCells(xlCellTypeVisible) 
... 
for each cell in Rng 
    ...  

Answer 3

나는이 예

Option Explicit 

Sub Sample() 
    Dim rRange As Range, filRange As Range, Rng as Range 
    'Remove any filters 
    ActiveSheet.AutoFilterMode = False 

    '~~> Set your range 
    Set rRange = Sheets("Sheet1").Range("A1:E10") 

    With rRange 
     '~~> Set your criteria and filter 
     .AutoFilter Field:=1, Criteria1:="=1" 

     '~~> Filter, offset(to exclude headers) 
     Set filRange = .Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow 

     Debug.Print filRange.Address 

     For Each Rng In filRange 
      '~~> Your Code 
     Next 
    End With 

    'Remove any filters 
    ActiveSheet.AutoFilterMode = False 
End Sub 

Answer 4

Call MyMacro() 

ActiveCell.Offset(1, 0).Activate 

Do Until Selection.EntireRow.Hidden = False 
If Selection.EntireRow.Hidden = True Then 
ActiveCell.Offset(1, 0).Activate 
End If 
Loop