エクセル2003 条件抽出したデータを切り取り別シートへ貼り付け

シート1にあるデータから3個のキーワードで抽出したデータを切り取り、シート2に貼り付ける方法を教えてください。

　今までは抽出する条件のキーワードが２個以下だったので、オートフィルタのオプションで抽出したデータをコピーしてシート2に貼り付け、シート1で可視セルを選択して削除という方法をとっていました。

　今回、条件にするキーワードが３個になったので、フィルタオプションの設定で、シート2のＡ1からＡ4にキーワードを入れて、検索条件範囲を指定してデータを抽出したので、今までの方法が使えなくなってしまいました。

参考までに、↓こんな感じです。

Sheets("Sheet2").Select
Range("A1") = "条件"
Range("A2") = "キーワード１"
Range("A3") = "キーワード２"
Range("A4") = "キーワード３"
Sheets("Sheet1").Cells.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
Range("A1:A4"), CopyToRange:=Range("A6"), Unique:=False

No.2 回答者： CoalTar 回答日時： 2008/12/04 16:42

対象データを移動させたいってことでしょう

案1
抽出先を 選択範囲内
(Action:=xlFilterInPlace)

案2
条件条件条件
<>キーワード１<>キーワード２<>キーワード３
として(AND検索)作業用シートにでもいったん抽出するとか？

この回答への補足

ご回答ありがとうございます。
そうです！移動させたいということです。
下手な説明をくみ取っていただいてありがとうございます。
なるほど！選択範囲内にするといいのだと、
Action:=xlFilterInPlace
に替えたら、その部分に関してはうまくいったのですが、
なぜか、
そのあとの、シート１の可視セルをコピーしてシート２に貼り付け、
シート１の可視セルを削除という部分がうまくいかなくなってしまいました。
このやり方だとダメなのでしょうか。

案2についてはよくわかりませんでした(>_<)
すみません！

補足日時：2008/12/05 15:12

No.1 回答者： n-jun 回答日時： 2008/12/04 13:24

Excel(エクセル) VBA入門：フィルタオプション(AdvancedFilter)でのデータ抽出

http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/v …

抽出する条件として、
・抽出する項目
・その項目に対しての抽出する条件
が必要になると思うのですが。。。。

提示されたコードでは参考にならないかと。
何を基にどうしたいのか、レイアウトを提示された方がいいかもしれません。

この回答への補足

ご回答ありがとうございます。
説明が悪くて申し訳ありませんっ。

7列目にある項目「担当者氏名」に対して、
山田さん、佐藤さん、鈴木さんの3人分のデータすべてを
別のシートに移動するという作業です。
これでわかりますでしょうか…。

ご紹介いただいたページ、わかりやすくて
いつも参考にさせていただいています。
その都度、ごまかしごまかし作業しているので
応用できずにいますが…。

どうぞよろしくお願いいたします。

補足日時：2008/12/05 14:17