VBAでフィルタリングされたリストをループする最も簡単な方法は？

Question

Excelで自動フィルタを設定していて、1つの列のすべての可視データをVBAコードでループしたい場合、これを行う最も簡単な方法は何ですか？

フィルタリングされた非表示の行はすべて含めてはいけません。したがって、上から下のプレーン範囲は役に立ちません。

いいアイデアはありますか？ありがとう。

Answer 1

A1のセルにA2:A11の数字が1つあり、autofilterが1であるとします。 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年に私のために働いた

EDIT

より良い方法：：

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のフィルタリングされたデータを下向きに仮定する1つの方法。

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