'[XL] [オートフィルタ] で抽出された行の情報を取得する方法
'http://support.microsoft.com/kb/401692/ja
Sub aaa()
Dim FilterRow As Range
Dim RowCount As Integer
' Selection.AutoFilter
' Selection.AutoFilter Field:=2, Criteria1:="XXXXX"
For Each FilterRow In Worksheets(1).Range("A11"). _
CurrentRegion.Resize(, 1).SpecialCells(xlVisible) 'A11はフィルタヘッダー
If FilterRow.Row <> 1 Then
Debug.Print "A=" & FilterRow & " B=" & Cells(FilterRow.Row, 1)
End If
Next FilterRow
End Sub