| |
こんにちは。かみちゃん です。
>例えば１行目は見出し、２行から５行にデータがあるとします。ある条件で
>実行した結果、４行目のデータが抽出されたとします。結果の画面では２行目
>にデータがあるように見えますが、実際は４行目のデータです。（分かって
>いただけるでしょうか？）この抽出されたデータのあるセルの内容を参照する
>方法を教えて下さい。例えばセルB４はどのように参照するのでしょうか。
サンプルデータも何もないので、テストもしていませんが、
可視セルのみを選択して、順番に参照するコードは以下のような感じで
できると思います。
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
エラー回避処理など、細かいことは考慮していません。
|
|
かみちゃん
- 07/7/13(金) 23:30 -
