Accessで重複データを削除する方法

2018/09/01 08:05

このQ&Aのポイント

Access２０１０を使用しています。都道府県名フィールドと市区町村名フィールドがあり、都道府県名フィールドには重複データがあります。重複データを削除するためには、エクセルの「データ重複の削除」の機能を利用することができます。
エクセルの重複の削除は、最初の行を残すという処理を行います。現在の方法は、Accessでデータをエクスポートし、エクセルで「データの削除」を実行しています。
重複データを削除するためには、Accessの操作で直接処理を行う方法もあります。詳しい方法については、公式ドキュメントを参照してください。

syunburunn
お礼率71% (30/42)

みんなの回答 （2）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

HohoPapa
ベストアンサー率65% (455/693)

2018/09/02 15:04 回答No.1

Accessはほぼ扱わないので他に優秀なやり方があるかもしれません。また、簡単なテストしかしていませんので責任あるコードではありません。課題テーブルに「フラグ」：数値タイプの作業列を追加しこんなコードをマクロで実行すれば期待の動作になるものと思います。なお、残すレコードは都道府県ごとにIDフィールドの一番小さなレコードです。 Sub Sample() 　Dim sql As String 　DoCmd.SetWarnings WarningsOn:=False 　　'作業列全レコードに0をセット　sql = "" 　sql = sql & "Update テーブル名" & vbCrLf 　sql = sql & "Set フラグ = 0" & vbCrLf 　DoCmd.RunSQL sql 　'作業列、残すレコードに1をセット　sql = "" 　sql = sql & "Update テーブル名" & vbCrLf 　sql = sql & "Set フラグ = 1" & vbCrLf 　sql = sql & "Where ID in (" & vbCrLf 　sql = sql & "Select Min(ID)" & vbCrLf 　sql = sql & "FROM テーブル名" & vbCrLf 　sql = sql & "GROUP By 都道府県名)" & vbCrLf 　DoCmd.RunSQL sql 　　'作業列、0のレコードを削除　sql = "" 　sql = sql & "delete From テーブル名" & vbCrLf 　sql = sql & "Where フラグ = 0" & vbCrLf 　DoCmd.RunSQL sql 　　DoCmd.SetWarnings WarningsOn:=True End Sub

質問者