Excel2003で重複したデータを削除したい

Excel2003で重複したデータを削除する方法を教えて下さい。
Ａ・Ｂ・Ｃ・Ｄの列の全てが重複するデータを削除したいのですが、可能ですか？ＡとＢ列は重複するけど、ＣやＤのデータは重複していなければ、残しておきたいです。

以下イメージです。
行／列　　Ａ　　　Ｂ　　　　Ｃ　　　　Ｄ

１　　　　なす　　商店　　100円　　3/4　

２　　　　なす　　商店　　200円　　3/2

３　　　　なす　　商店　　200円　　3/2


-------------------------------------
以下、重複データ削除後のイメージ。

１　　　　なす　　商店　　100円　　3/4　

２　　　　なす　　商店　　200円　　3/2

No.3 回答者： coldblade 回答日時： 2014/03/23 21:09

以下のSQLで検索すれば結果が出ます。

SELECT DISTINCT
T1.A,
T1.B,
T1.C,
T1.D
FROM T1

No.2 回答者： tom04 回答日時： 2014/03/20 23:08

こんばんは！

色々やり方はあると思いますが、VBAでの一例です。
尚、1行目は項目行でデータは2行目以降にあるとします。

画面左下の操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面（カーソルが点滅しているところ）に
↓のコードをコピー＆ペースト　→　Excel画面に戻り、マクロを実行してみてください。
（Alt＋F8キー　→　マクロ　→　マクロ実行です）

Sub Sample1() 'この行から
Dim i As Long, lastRow As Long
lastRow = Cells(Rows.Count, "A").End(xlUp).Row
Application.ScreenUpdating = False
If lastRow > 1 Then
Range("A:A").Insert
With Range(Cells(2, "A"), Cells(lastRow, "A"))
.Formula = "=B2&""_""&C2&""_""&D2&""_""&E2"
.Value = .Value
End With
For i = lastRow To 2 Step -1
If WorksheetFunction.CountIf(Range("A:A"), Cells(i, "A")) > 1 Then
Rows(i).Delete
End If
Next i
Range("A:A").Delete
End If
Application.ScreenUpdating = True
End Sub 'この行まで

※　一旦マクロを実行すると元に戻せませんので
別Sheetでマクロを試してみてください。m(_ _)m

No.1 回答者： mshr1962 回答日時： 2014/03/20 23:04

オートフィルタの設定でできます。

詳細は下記URLを参照
・重複データを削除する－フィルタオプション
http://www.relief.jp/itnote/archives/001525.php