Excelで一意の値のみを許可するにはどうすればよいですか？

Author Xiaoyang Last modified 2025-08-26

ワークシートの列に重複を防ぎ、一意の値のみを入力したい場合、この記事ではそのタスクを処理するためのいくつかの簡単な方法を紹介します。

データ検証を使用してワークシートで一意の値のみを許可する

Kutools for Excelを使用してワークシートで一意の値のみを許可する

VBAコードを使用してワークシートで一意の値のみを許可する

データ検証を使用してワークシートで一意の値のみを許可する

実際、Excelのデータ検証機能はこの問題を解決するのに役立ちます。以下の手順を行ってください：

1. 一意の値のみを入力したいセルまたは列を選択し、次に「 データ」＞「 データ検証」＞「 データ検証」をクリックしてください。スクリーンショットをご覧ください：

click Data > Data Validation > Data Validation

2. 「データ検証」ダイアログボックスで、次の操作を行ってください：

(1.) 「設定」タブをクリックします；

(2.) 「許可」ドロップダウンリストで、「カスタム」を選択します；

(3.) 次の数式を入力します：=COUNTIF($E:$E,E1)<2（Eは一意の値のみを許可したい列、E1は使用したい列の最初のセル）を「数式」テキストボックスに入れてください。

specify options in the Data Validation dialog box

3. そして「OK」ボタンをクリックすると、今後指定した列に重複する値を入力しようとすると、警告メッセージが表示されます。スクリーンショットをご覧ください：

when entering duplicate value into the specific column, a warning message will pop out

Kutools for Excelを使用してワークシートで一意の値のみを許可する

上記の2つの方法は1つの列でのみ重複を防ぐことができますが、Kutools for Excelがあれば、その「重複防止」機能を使用して、複数のセル範囲や1つの列または行で重複を迅速に防ぐことができます。

Kutools for Excelは、300以上の高度な機能を提供し、複雑なタスクを簡素化し、創造性と効率を向上させます。 AI機能と統合され、Kutoolsは正確にタスクを自動化し、データ管理を容易にします。Kutools for Excelの詳細情報...無料トライアル...

Kutools for Excelをインストール後、次の手順を行ってください：

1. 重複する値を防ぎ、一意のデータのみを許可したい列またはセル範囲を選択します。

2. 次に「Kutools」＞「入力を制限する」＞「重複防止」をクリックしてください。スクリーンショットをご覧ください：

click Prevent Duplicate feature of kutools

3. 警告メッセージが表示され、この機能を適用するとデータ検証が削除されることを知らせます。スクリーンショットをご覧ください：

a warning message popps out to remind you the Data Validation will be remove if applying this feature

4. 続けるために「はい」ボタンをクリックすると、別のプロンプトボックスが表示され、どのセルにこの機能が適用されたかを知らせます。スクリーンショットをご覧ください：

another prompt box is popped out to remind which cells have been applied this feature

5. その後「 OK」ボタンをクリックすると、範囲A1:D15に重複データを入力すると、重複データが無効であることを知らせるプロンプトボックスが表示されます。一意の値のみを入力する必要があります。スクリーンショットをご覧ください：

when entering some duplicate data, a warning message will appear

300以上の機能で作業を効率化できます。 Kutools for Excelを無料でダウンロードしてお試しください。

VBAコードを使用してワークシートで一意の値のみを許可する

VBAコードに興味がある場合、次のコードも役立つでしょう。

1. 一意の値のみを許可したいシートタブを右クリックし、コンテキストメニューから「コードの表示」を選択します。表示された Microsoft Visual Basic for Applicationsウィンドウで、次のコードを空白のモジュールにコピーして貼り付けてください：

VBAコード：ワークシートで一意の値のみを許可する：

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20160829
  Dim xRg As Range, iLong, fLong As Long
  If Not Intersect(Target, Me.[A1:A1000]) Is Nothing Then
     Application.EnableEvents = False
     For Each xRg In Target
     With xRg
         If (.Value <> "") Then
          If WorksheetFunction.CountIf(Me.[A:A], .Value) > 1 Then
            iLong = .Interior.ColorIndex
            fLong = .Font.ColorIndex
            .Interior.ColorIndex = 3
            .Font.ColorIndex = 6
            MsgBox "Duplicate Entry !", vbCritical, "Kutools for Excel"
            .ClearContents
            .Interior.ColorIndex = iLong
            .Font.ColorIndex = fLong
          End If
       End If
     End With
     Next
     Application.EnableEvents = True
  End If
End Sub

click View Code and insert vba code into the module

注意：上記のコードでは、A1:A1000は重複を防ぎたい列のセルです。

2. その後、このコードを保存して閉じると、セルA1:A1000に重複する値を入力すると、重複エントリが許可されていないことを知らせる警告メッセージが表示されます。スクリーンショットをご覧ください：

a warning message is popped out to remind the duplicate entry is not allowed

3. 「OK」ボタンをクリックすると、重複する値が削除されます。

最高のオフィス業務効率化ツール

🤖	Kutools AI Aide：データ分析を革新します。主な機能：Intelligent Execution｜コード生成｜カスタム数式の作成｜データの分析とグラフの生成｜Kutools Functionsの呼び出し……
	人気の機能：重複の検索・ハイライト・重複をマーキング｜空白行を削除｜データを失わずに列またはセルを統合｜丸める……
	スーパーLOOKUP：複数条件でのVLookup｜複数値でのVLookup｜複数シートの検索｜ファジーマッチ……
	高度なドロップダウンリスト：ドロップダウンリストを素早く作成｜連動ドロップダウンリスト｜複数選択ドロップダウンリスト……
	列マネージャー：指定した数の列を追加｜列の移動｜非表示列の表示/非表示の切替｜範囲＆列の比較……
	注目の機能：グリッドフォーカス｜デザインビュー｜強化された数式バー｜ワークブック＆ワークシートの管理｜オートテキストライブラリ｜日付ピッカー｜データの統合｜セルの暗号化/復号化｜リストで電子メールを送信｜スーパーフィルター｜特殊フィルタ（太字/斜体/取り消し線などをフィルター）……
	トップ15ツールセット：12 種類のテキストツール（テキストの追加、特定の文字を削除など）｜50種類以上のグラフ（ガントチャートなど）｜40種類以上の便利な数式（誕生日に基づいて年齢を計算するなど）｜19 種類の挿入ツール（QRコードの挿入、パスから画像の挿入など）｜12 種類の変換ツール（単語に変換する、通貨変換など）｜7種の統合＆分割ツール（高度な行のマージ、セルの分割など）｜… その他多数