ＥＸＣＥＬのＶＢＡで正常に動作してくれないのですが。

質問

いつもお世話になります。
ネットで下記の重複データの削除のＶＢＡをみつけました。
Range("A1:A300").AdvancedFilter _
action:=xlFilterCopy, _
copyToRange:=ActiveSheet.Range("C1"), _
unique:=True
とりあえず動作はＯＫでしたので、自分用に範囲をA4:B300としたのですが、A列はうまくいくのですが、B列が空白のままになってしまいます。

とりあえず、
日付　　機種　　　　　　　日付　　機種
4/1　　　3　　　　　　　　4/1　　　3
4/1　　　3　　　　　→　　4/1　　　1,4
4/1　　　1,4　　　　　　　4/2　　　3,4
4/2　　　3,4

というように、Ａ列の日付とＢ列の機種が、全く同じ内容であれば、削除したいのですが、この場合どう訂正すればよいでしょうか。
このプログラムは単列のみの照合で、複数列の照合は無理なのでしょうか？
よろしくお願いします。

回答No.1

hiro28 · ベストアンサー

Range("A1:B300").AdvancedFilter _
action:=xlFilterCopy, _
copyToRange:=ActiveSheet.Range("C1"), _
unique:=True
ですよね？
winXP:Office2000proの環境ですが
nanami0310さんの望むような結果がでましたよ！
範囲指定がおかしいのでは？
それか結果を表示するC1以下がきれいにクリアされてないのでは？

お礼

ありがとうございました！
会社のＰＣ（Win98）ではできませんでしたが、家の（WinXP）ではできました。明日、会社でクリアの件をみてみます。
ありがとうございました。