Range("A:A").AdvancedFilter Action:=xlFilterCopy, copyToRange:=Range("B1"), unique:=True
↑A列のユニークキーをB列に貼り付ける。
要はEXCELデータの重複を削除したかったんだけど、
VBAでの連想配列とかめんどっちい。
ってか、VBAってがっつり組むよりEXCELの機能を使ったほうが
ほとんどの場合パフォーマンスいいね。
(マクロ記録コードをそのまま使うんじゃ無駄が多いから、コードのシェイプアップは必須。)