重複行を削除

質問

重複する行をVBAコードで削除したいのですが
A列　B列　C列
あ　 １　　a
あ　 １　　a
あ　 ２　　a
い　 １　　a
い　 ２　　c
い　 ２　　c

A列　B列　C列
あ　 １　　a
あ　 ２　　a
い　 １　　a
い　 ２　　c
のようにABC列同一文字は１行にしたいのですがVBAコード、関数の解る方ご教授願います。

回答No.3

ushi2015

済みません、No2です
No1の方が回答してましたね。
ActiveSheet.Range("$A$1:$C$6").RemoveDuplicates Columns:=Array(1, 2, 3), Header:=xlNo

お礼

ありがとうございます。

回答No.2

ushi2015

こんにちは
Excel2007以降であれば3列選択してリボンのデータタブの重複の削除で出来ると思います。

お礼

ありがとうございます。勉強になりました

回答No.1

kkkkkm

http://okwave.jp/qa/q9218228.html
と同じ質問ですね。
同じ回答をしておきます。
Excel2007以降でしたら以下のコードになります
ActiveSheet.Range("$A$1:$C$6").RemoveDuplicates Columns:=Array(1, 2, 3), Header:=xlNo

Excel2003まで含むと以下になります。こちらの場合、範囲には見出し行が必要になりますので1行目に見出しを入れて2行目からデータとしてください。
Sheets("シート名").Range("$A$1:$C$7").AdvancedFilter _
Action:=xlFilterCopy, _
CopyToRange:=Sheets("シート名").Range("$A$1"), _
Unique:=True

お礼

ありがとうございます。