マクロ オートフィルタで困っています。
マクロ オートフィルタで困っています。
1列目と2列目からそれぞれ条件をフィルタで抽出し、抽出された行を削除するマクロを組んだのですが(下記)、Bの条件が表にない場合に2行目から下が全て削除されてしまいます。
元の表は毎週変わるため、抽出する条件があるかないかはその時次第です。
オートフィルタにこだわってはいませんが、その他の抽出方法もいまいち分からず……。
どのようにすればよいのか、教えていただけますでしょうか。
宜しくお願い致します。
<マクロ>
Sub Macro()
Selection.AutoFilter Field:=1, Criteria1:="A"
Selection.AutoFilter Field:=2, Criteria1:="B", Operator:=xlAnd
Dim gyou(1) As Long
gyou(0) = 2
gyou(1) = Range("A1").CurrentRegion.Rows.Count
Rows(gyou(0) & ":" & gyou(1)).Select
Selection.Delete Shift:=xlUp
End Sub
お礼
そうだったんですね☆ ということは、100%同じ結果になるということですか? わかりやすい説明、どうもありがとうございます。 私はエクセル初心者なので、 本当に助かりました。 迅速な回答、どうもありがとうございました。