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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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