• 締切済み

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

Excel2003で重複したデータを削除する方法を教えて下さい。 A・B・C・Dの列の全てが重複するデータを削除したいのですが、可能ですか?AとB列は重複するけど、CやDのデータは重複していなければ、残しておきたいです。 以下イメージです。 行/列  A   B    C    D 1    なす  商店  100円  3/4  2    なす  商店  200円  3/2 3    なす  商店  200円  3/2 ------------------------------------- 以下、重複データ削除後のイメージ。 1    なす  商店  100円  3/4  2    なす  商店  200円  3/2

みんなの回答

  • coldblade
  • ベストアンサー率20% (2/10)
回答No.3

以下のSQLで検索すれば結果が出ます。 SELECT DISTINCT T1.A, T1.B, T1.C, T1.D FROM T1

  • tom04
  • ベストアンサー率49% (2537/5117)
回答No.2

こんばんは! 色々やり方はあると思いますが、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

  • mshr1962
  • ベストアンサー率39% (7417/18945)
回答No.1

オートフィルタの設定でできます。 詳細は下記URLを参照 ・重複データを削除する-フィルタオプション http://www.relief.jp/itnote/archives/001525.php

関連するQ&A