なぜ「重複入力」を防ぐ必要があるのか？
実務において、顧客IDや管理番号、注文番号などを手入力する際、もっとも避けたいのが「同じデータを誤って二重登録してしまうこと」です。後から集計する際に集計値が狂う原因となりますし、何よりデータの整合性が損なわれます。
VBAを使わなくても、Excelの標準機能である「データの入力規則」を使えば、重複入力をその場で検知し、即座にブロックすることができます。今回は、実務で明日から使える効率的な設定方法を解説します。
基礎知識：入力規則とCOUNTIF関数の仕組み
今回使用する「データの入力規則」は、セルに入力できるデータを制限する機能です。ここに「COUNTIF関数」を組み合わせることで、「既に入力されているデータと一致するものがあったら入力させない」というロジックを組みます。
COUNTIF関数は、指定した範囲内で特定の条件に一致するセルの個数をカウントする関数です。
例えば、A1からA50の範囲内に、今入力しようとしている値が「1つも（または1つしか）存在しない」という条件を課すことで、重複を未然に防ぎます。
実装手順：エラーを出す設定方法
1. 重複を防ぎたいセル範囲（例：A2からA100）を選択します。
2. ［データ］タブの［データの入力規則］をクリックします。
3. ［設定］タブの［入力値の種類］で［ユーザー設定］を選びます。
4. ［数式］欄に以下の通り入力します。
=COUNTIF($A$2:$A$100, A2) <= 1
5. ［エラー メッセージ］タブで、入力エラー時に表示させるタイトルとメッセージを入力します。（例：タイトル「重複エラー」、メッセージ「このIDは既に入力されています。」）
6. ［OK］を押して完了です。
サンプルプログラム：VBAで一括設定する方法
もし、複数のシートや大量のファイルでこの設定を適用したい場合は、VBAを使うと一瞬で設定が完了します。以下は、アクティブシートのA列に対して重複防止ルールを適用するコードです。
Sub SetDuplicateValidation()
‘ A2からA100の範囲に重複入力防止ルールを設定する
Dim targetRange As Range
Set targetRange = Range(“A2:A100”)
With targetRange.Validation
.Delete ‘ 既存の入力規則をクリア
.Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertStop, _
Formula1:=”=COUNTIF($A$2:$A$100,A2)<=1"
' エラーメッセージの設定
.ErrorMessage = "この値は既に入力されています。再確認してください。"
.ErrorTitle = "重複入力エラー"
.ShowError = True
End With
MsgBox "重複入力防止の設定が完了しました。"
End Sub
応用・注意点：現場で陥りやすい罠
実務でこの機能を使う際、以下の点に注意してください。
1. 既存データには無力
入力規則を設定する「前」からすでに入力されていた重複データに対しては、この機能は警告を出しません。設定した後に新しく入力するデータが対象となります。既存データの重複をチェックしたい場合は、［ホーム］タブの［条件付き書式］から［セルの強調表示ルール］＞［重複する値］を選択し、色を変えて視覚的に見つける運用を併用するのがおすすめです。
2. コピー＆ペーストに注意
入力規則は手入力には強いですが、他のセルからデータを「コピー＆貼り付け」すると、設定が上書きされて無効になる場合があります。運用上、ユーザーに貼り付けをさせない制限をかけるか、入力後にマクロで定期的に整合性をチェックする仕組みを組み込むと、より堅牢なシステムになります。
このテクニックを活用して、ミスのないデータ管理を目指してください！
