Excel VBA質問スレ Part9

Excel VBA質問スレ Pa ..

484:デフォルトの名無しさん
09/01/10 01:11:17
>>483
1か0か判定するだけなら、わざわざオートフィルタ使わなくてもForループで順に見てけばいいんでない？
要素数も大して多くないんだし。とりあえず…

B列が1の物だけをオートフィルタで抽出
Range("A1").AutoFilter Field:=2, Criteria1:="=1"

A列の可視セルの内容をすべて書き出す
For Each c In Range("A1").CurrentRegion.Columns(1).SpecialCells(xlCellTypeVisible).Cells
　　Debug.Print c.Value
Next

次ページ