excelで複数条件で抽出する
excel VBAで質問です。（初心者レベルです）
A列からZ列までデータがあり、オートフィルタでE列で条件に当てはまるものと、E列では条件外だが、Y列では条件に当てはまるものを別シートに抽出したいと思っています。
Sub Macro1()
With Worksheets("Sheet1")
.Range("A1").AutoFilter _
Field:=5, Criteria1:="*条件*"
.Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy _
Worksheets("Sheet2").Range("A1")
End With
End Sub
Fieldを変えて、E列、Y列それぞれはできるのですが、データが重複してしまいます。
重複分を削除するため、セル入力で連番を降って、重複するものを削除しようとしましたがうまくいかず。
なにかいい方法はないでしょうか。
お礼
できました。ありがとうございます。
補足
すいません。やってみましたが、変化ありません。