ExcelVBAで、フィルタリング後の一覧から値を取得

質問

ExcelVBAで、フィルタリング後の一覧から値を取得方法について質問です。

100件のデータから、フィルタの条件で10件程度に絞り込んだ場合、その列の値を、配列に突っ込みたいのですが、この場合、どうすればよろしいでしょうか？

もうちょっと、詳しく↓
↓フィルタリング条件
Range("B7").Select
Selection.AutoFilter Field:=2, Criteria1:="=?n????", Operator:=xlAnd

↓取得したい値
Range("B8").Select　から　B列でフィルタリングのデータが存在するまで。

※現状
下セルに移動するために、「Selection.Offset(1, 0).Select」を使っていたのですが、フィルタリングの条件を無視して行を選択されてしまいます。

この場合の、コマンドを教えていただければ助かります。

回答No.1

papayuka · ベストアンサー

あまりスマートじゃないけど、、、

抽出件数が少ないならMsgbox のコメントアウトを外して実行して見て下さい。
抽出した値をメッセージ表示します。

Sub Test()
Dim r As Range, fr As Range
With ActiveSheet
　　.Range("B7").CurrentRegion.AutoFilter _
　　　　　　　　　　 Field:=2, Criteria1:="=?n????"
　 If .Range("B65536").End(xlUp).Row > 7 Then
　　　 Set fr = .Range("B7", .Range("B65536").End(xlUp)). _
　　　　　　　　　　 SpecialCells(xlCellTypeVisible)
　　　 For Each r In fr
　　　　　 If r.Address <> "$B$7" Then
　　　　　　　 'MsgBox r.Value
　　　　　　　 Debug.Print r.Value
　　　　　 End If
　　　 Next r
　 End If
End With
End Sub

お礼

ありがとうございます。
SpecialCells(xlCellTypeVisible)　を使って解決できました。