VBAで表に1つでも入ってたら取り出すやり方教えてください エクセルの表のHセルに以下が入ってるとし

VBAで表に1つでも入ってたら取り出すやり方教えてください



エクセルの表のHセルに以下が入ってるとします。
あああ
いいい
ううう
あああ
あああ
えええ
いいい
いいい
おおお
あああ
ううう
かかか
あああ
ききき
かかか

ここから以下だけを取り出したいです。
あああ
いいい
ううう
えええ
おおお
かかか
ききき

No.1 ベストアンサー 回答者： tom04 回答日時： 2017/07/09 09:11

こんにちは！

要するに「重複レコード」を無視すればよいのですね。
わざわざVBAでなくても、フィルタオプションの重複レコードを非表示にし、
表示されているデータをそのままコピー＆ペーストで大丈夫だと思います。

どうしてもVBAでやりたい場合はそれをそのままコードにします。
どこに「取り出す」のか明記されていませんので、
元データはSheet1にあり、Sheet2のA列に「取り出す」とします。

尚、項目行が必要なので、H列の1行目は何らかの項目が入っていて、データは2行目以降にあるという前提です。

標準モジュールです。

Sub Sample1()
Worksheets("Sheet1").Range("H:H").AdvancedFilter Action:=xlFilterCopy, copytorange:= _
Worksheets("Sheet2").Range("A1"), unique:=True
End Sub

※　ループさせる方法もあると思いますが、
データ量が多い場合はこちらの方が一気にできます。m(_ _)m

この回答へのお礼

ありがとうございます。
無事出来ました。

お礼日時：2017/07/09 12:39