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列それぞれはできるのですが、データが重複してしまいます。
重複分を削除するため、セル入力で連番を降って、重複するものを削除しようとしましたがうまくいかず。

なにかいい方法はないでしょうか。

回答No.1

keithin · ベストアンサー

簡単な方法のその１：
sub sample1()
　worksheets("Sheet1").usedrange.copy destination:=worksheets("Sheet2").range("A1")
　with worksheets("Sheet2")
　　.range("A:Z").autofilter field:=5, criteria1:="<>*条件*"
　　.range("A:Z").autofilter field:=25, criteria1:="<>*条件*"
　　.autofilter.range.offset(1).delete shift:=xlshiftup
　　.autofiltermode = false
　end with
end sub

簡単な方法その２
sub sample2()
　dim r as long
　r = worksheets("Sheet1").cells.specialcells(xlcelltypelastcell).row
　with worksheets("sheet1")
　　.range("AA1") = "yes"
　　.range("A:AA").autofilter field:=5, criteria1:="*条件*"
　　.range("AA1:AA" & r) = "yes"
　　.showalldata
　　.range("A:AA").autofilter field:=25, criteria1:="*条件*"
　　.range("AA1:AA" & r) = "yes"
　　.showalldata
　　.range("A:AA").autofilter field:=27, criteria1:="yes"
　　.autofilter.range.copy destination:=worksheets("Sheet2").range("A1")
　　.showalldata
　end with
end sub

他にも「フィルタオプションの設定」（advancedfilter）を使って抽出させる方法などもありますね。

お礼

ありがとうございます！同じような処理なのにかき方もいろいろあるのですね。
自分でもわかる１を使わせていただきました。
advancedfilterでも書いてみたのですが、タイトル行以外がきれいに消えてしまい、、、

回答No.4

layy

ちなみに
「名簿から検索して別のシートに貼り付けるには？」
これをそのまま検索すると解説ページがあります。

回答のコードをそのまま使って終わらせるのは、考えることしないのでカンニングと同意。内容理解してから進めること。

お礼

カンニングと同意とは厳しいお言葉ですね。
これに怠けることなく、勉強していきたいと思います

回答No.3

layy

２の倍数で絞ると２、４、６、８、で３の倍数で絞ると３、６、９、なので６のが重複する。２、３、４、６、６、８、９、となる。これに並べかえ連番つけたら？、という感じでしょう。

フィルタは使いません。
Ａ１から最後尾まで１セルずつ操作し、「Ｅ列に合う　かつ　Ｙ列に合う」を見つけていく。これでできます。

複数条件の絞り込みは事例あります。最近回答しています。サンプルあります。

セルをＡ１、Ｂ１、Ｃ１やＡ１、Ａ２、Ａ３、と縦方向でも横方向でも操作できます。

お礼

すみません、勉強不足のためか、言ってる事が理解できません。
ともあれ、無事解決いたしました。

回答No.2

某HN クロメート(Chromate)（@CoalTar）

VBAは、詳しくないですが フィルタオプションの設定をマスターしてはどうですか？
2行2列のCRITERIAを作ればできると思います。

http://allabout.co.jp/gm/gc/297791/3/
抽出したいシートでフィルタオプションの設定を始めます。

「重複するレコードは無視する」は必要ではないとは思うのですが。。。
見ていないのでわかりません。

お礼

advancedfilterでもやってみたのですが、
1のかたのお礼にも書いたようにタイトル行以外が消えてしまうという結果になり、どうしても解決法がみつからず、、、、、
もう少し勉強したらわかるかもしれませんが。。。