|
▼ito さん:
> 36000のJakaさんの回答を使わせて頂いております。
>
> Sheets("補助2").Select
>
> Rows(1).Insert
> Range("B1").Value = "AAAAA"
>
> With Range("A1", Range("H65536").End(xlUp))
> .AutoFilter Field:=8, Criteria1:="0", Operator:=xlAnd
> .SpecialCells(xlCellTypeVisible).EntireRow.Delete
> End With
>これを
> .AutoFilter Field:=6, Criteria1:="0", .AutoFilter Field:=7, Criteria1:="0",
> .AutoFilter Field:=8, Criteria1:="0",
>場合に、行を削除したいのです。宜しくお願いします。
条件が3つと言う事でしょうか?
http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_autofilter.html
http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_advancedfilter.html
3つ以上の場合、上記URLの下側の
フィルタオプション(AdvancedFilter)でのデータ抽出が、参考になると思います。
|
|