|
こんにちわ
↓を参考にしてみてはどうですか。
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
|
|