重複チェックツール(vbaツール)

　エクセルで事務を楽にするプログラマーmoimoiです。

2024.2.18
VBAを使用せずとも重複をチェックできる方法を新しい記事で無料公開しています。よろしければご確認ください。

　エクセルで表を作成した際に、データが重複していないか確認をすることはありませんか？
　1つ1つ見ていたら、日が暮れてしまうなんてもったいないですよね

　今回は、一発で重複するデータがないか確認するコードをご紹介します

同じシート上でも、別シートでもチェック可能です。
ぜひご利用ください。

【使い方】

１．確認用シートと処理済み一覧シートのそれぞれのA列にチェックしたい値を入力

２．チェックボタンをクリック

３．処理済み一覧に記載のある値があれば、確認用の値が赤色になります。

【コード】

Sub 重複チェック()
Dim i As Long, j As Long
Dim ALastRow As Long, BRow As Long
 
Cells.Font.ColorIndex = 1
ALastRow = Worksheets("○○").Cells(Rows.Count, 1).End(xlUp).Row
     
'B列の最終行番号を1（見出し行のみ）に設定
BRow = 1
    
'A列のデータの数だけ繰り返す
　For i = １ To ALastRow
    
　'B列のj行の値がB列にあるかをチェック
　　For j = １ To BRow
　　 If Worksheets("○○").Cells(i, 2).Value = Worksheets("○○").Cells(j, 2).Value Then
　　　 Worksheets("○○").Cells(i, 2).Font.ColorIndex = 3
     End If
    Next j
         
'同じ値がなかったら、B列の値を出力し、B列の最終行番号を1増やす
If j = BRow + 1 Then
 BRow = BRow + 1
End If
Next i

※シート名は入れておりませんので、ご自身で指定して使って下さい。
For i For j の開始はタイトル行を除外する場合は2から始めてください。

【ダウンロード】

すぐに使いたい方は購入後ダウンロードをどうぞ