| 
    
     |  | こんにちわ ↓を参考にしてみてはどうですか。
 http://www.asahi-net.or.jp/~zn3y-ngi/YNxv9596.html
 
 ▼アロエ さん:
 >お世話になります。
 >
 >シートWordにはこのようなデータがあります
 >
 > a b ・・・
 >1 A D
 >2 A D
 >3 A D
 >4 A D
 >5 A D
 >6 A D
 >7  A
 >8  A
 >9  A
 >
 >上記からAdvacedFilterで重複データを除いたかたちで
 >シートFilterへコピーしたいのですが、結果こんなようになってしまいました
 >
 >結果:
 >A D ・・・
 >A D
 >A D
 >A A
 >  A
 >  A
 >
 >中途半端。。(^^;
 >どうしたら重複データを取り除くことができるのでしょうか?
 >AdvancedFilter以外にも方法があるのでしょうか?
 >宜しくお願いいたします
 >
 >ThisWorkbook.Worksheets("Word").Range("A1:IV65536").AdvancedFilter _
 >   Action:=xlFilterCopy, CopyToRange:=ThisWorkbook.Worksheets _        ("Filter").Range("A1"), Unique:=True
 
 |  |