|
こんにちは。かみちゃん です。
>例えば1行目は見出し、2行から5行にデータがあるとします。ある条件で
>実行した結果、4行目のデータが抽出されたとします。結果の画面では2行目
>にデータがあるように見えますが、実際は4行目のデータです。(分かって
>いただけるでしょうか?)この抽出されたデータのあるセルの内容を参照する
>方法を教えて下さい。例えばセルB4はどのように参照するのでしょうか。
サンプルデータも何もないので、テストもしていませんが、
可視セルのみを選択して、順番に参照するコードは以下のような感じで
できると思います。
Sub Macro1()
Dim rngVisible As Range
Dim c As Range
With Range("A1")
.AutoFilter Field:=1, Criteria1:=〜
Set rngVisible = Range(.Cells, .Offset(Rows.Count - 1).End(xlUp)) _
.SpecialCells(xlCellTypeVisible)
For Each c In rngVisible
MsgBox c.Address
Next
End With
End Sub
エラー回避処理など、細かいことは考慮していません。
|
|