●顧客IDが無い場合の、顧客名簿の重複削除の方法
●ラストのラストに、４表結合orgや、再度、ほぼいじってない新しい４表結合をしたものでAccessファイルにてチェック。
●ラストに、社長様の削除対象顧客と、「DM絶対禁止のお客様.xls」を照らし合わせる。
完全一致と、姓だけの前方一致と２ケースで。
SELECT *
FROM ４表合体＿加工
WHERE (((氏名) Like "氏名01*"
Or (氏名) Like "氏名01*"
Or (氏名) Like "氏名01*"
Or (氏名) Like "氏名01*"
Or (氏名) Like "氏名01*"
Or (氏名) Like "氏名01*"
Or (氏名) Like "氏名01*"
Or (氏名) Like "氏名01*"
Or (氏名) Like "氏名01*"))
ORDER BY 氏名;
●=LEFT(E2,2)&RIGHT(G2,2)で名前の先頭の２文字と、住所の最後尾の２文字チェック。
「氏名」の先頭1文字と「家族疑いフラグ用住所01」の最後の1文字ですでにやってるので無意味。
やらない。
●=LEFT(H29,2)&RIGHT(E29,1)&RIGHT(L29,1)で、名前の２文字と、住所の最後の１文字、電話の最後の１文字。
「家族疑いフラグ」にて。
「氏名」の先頭1文字と「家族疑いフラグ用住所01」の最後の1文字ですでにやってるので無意味かも？
やるなら、名前の２文字と、電話の最後の１文字でやる？
●=RIGHT(G2,2)&RIGHT(I2,2)で住所の最後の２文字と、TELの最後尾の２文字チェック。
「家族疑いフラグ」にて。
住所の最後の１文字と、TELの最後尾の１文字ですでにやってるので、無意味。
やらない。
●=RIGHT(G2,1)&RIGHT(I2,1)で住所の最後の１文字と、TELの最後尾の１文字でチェック。
「家族疑いフラグ」にて。
ピボットで調べたら１７０件ほどもあったので、クリックが大変だから、
ドリルスルーチェックをマクロ化
で、結局チェックしたら怪しいやつはゼロ。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 |
' ' Sub 重複チェック名前1文字住所最終1文字() ' ' Macro2 Macro ' マクロ記録日 : 2026/3/27 ユーザー名 : a ' ' ' Range("B12").Select Selection.ShowDetail = True Range("G2").Select Selection.Sort Key1:=Range("G2"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _ :=xlPinYin ActiveWindow.Zoom = 70 ' Columns("A:C").Select ' Range("C1").Activate Columns("A:C").ColumnWidth = 2 End Sub ' ' |
●住所のみでもチェック
（愛知県、名古屋市、番地、カットしたもので）
２８件ほどだったので、手作業でチェック→でも無かったのでスルー。
ピボットは都度消した。
●電話番号のみで単純比較
ドリルスルー結果にて、「削除区分」の列だけ移動して、ここにコピペメモ。
総合連番 削除区分 氏名スペースなし区分 氏名 郵便番号 家族疑いフラグ用住所01 住所02 電話番号 顧客ID 家族疑いフラグ お届け先住所 部分連番 お届け先会社・部門１ お届け先会社・部門２ お届け先名略称ｶﾅ 敬称 ご依頼主電話番号 区分01 区分02 区分03 区分04 区分05
●氏名の列を複製し、スペースを削除して、再度、単純比較
ピボットの時点で重複ゼロだった。
●ご家族疑いチェック その２ （=LEFT(E2,1)&RIGHT(G2,1)）
「氏名」の先頭1文字と「電話番号」の最後の1文字でチェック。
「家族疑いフラグ」にて。
●ご家族疑いチェック その１ （=LEFT(E2,1)&RIGHT(G2,1)）
「=LEFT(E2,1)&RIGHT(G2,1)」を埋め込む列の名前は「家族疑いフラグ」。
このあと、いろんなチェックフラグ（数式での）に流用します。
※「〇〇県」「〇〇〇市」「番地」を順番に置換で消して、「家族疑いフラグ用住所01」とする。
その後、「氏名」の先頭1文字と「家族疑いフラグ用住所01」の最後の1文字でチェック。
チェック用のマクロあり。
どれを消すかは、普通に「削除区分」の列で「４番・・真っ先に削除」などをフラグを立てた。
総合連番 氏名 郵便番号 家族疑いフラグ用住所01 住所02 電話番号 顧客ID 家族疑いフラグ お届け先住所 削除区分 部分連番 お届け先会社・部門１ お届け先会社・部門２ お届け先名略称ｶﾅ 敬称 ご依頼主電話番号 区分01 区分02 区分03 区分04 区分05
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 |
' ' Sub DMリストドリルスルー縮小表示と並べ替え() ' ' Macro2 Macro ' マクロ記録日 : 2026/6/16 ユーザー名 : a ' ' ActiveCell.Offset(1, 0).Select ' Range("B7").Select Selection.ShowDetail = True ActiveWindow.Zoom = 80 Range("D1").Select Selection.Sort Key1:=Range("D1"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _ :=xlPinYin ' Rows("5:5").Select ' ActiveSheet.Paste End Sub ' ' |
●2026集客イベント 氏名でチェック
「2026集客イベントDM＿4表合体＿加工本番.xls」を、単純に氏名でチェック
以下のコードも作成。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
' ' Sub DMリストドリルスルーと行選択() ' ' Macro2 Macro ' マクロ記録日 : 2026/6/16 ユーザー名 : a ' ' ' Range("B7").Select Selection.ShowDetail = True Rows("2:3").Select Selection.Copy ' Rows("5:5").Select ' ActiveSheet.Paste End Sub ' ' |
2025/11/07～12の、「Aさんご依頼：DMリスト重複調査→」でフィルタするとわかりやすい。
総合連番 削除区分 部分連番 お届け先名 お届け先郵便番号 お届け先住所 お届け先建物名（アパートマンション名） お届け先電話番号 顧客ID お届け先会社・部門１ お届け先会社・部門２ お届け先名略称ｶﾅ 敬称 ご依頼主電話番号 区分01 区分02 区分03 区分04 区分05
