- 締切済み
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
- みんなの回答 (3)
- 専門家の回答
みんなの回答
- coldblade
- ベストアンサー率20% (2/10)
以下のSQLで検索すれば結果が出ます。 SELECT DISTINCT T1.A, T1.B, T1.C, T1.D FROM T1
- tom04
- ベストアンサー率49% (2537/5117)
こんばんは! 色々やり方はあると思いますが、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)
オートフィルタの設定でできます。 詳細は下記URLを参照 ・重複データを削除する-フィルタオプション http://www.relief.jp/itnote/archives/001525.php