如何僅在Excel中允許唯一值？

如果您只想在工作表的列中輸入唯一值並防止重複，則本文將介紹一些快速技巧來處理此任務。

僅使用數據驗證在工作表中允許唯一值

僅使用VBA代碼在工作表中允許唯一值

Kutools for Excel僅在工作表中允許唯一值

僅使用數據驗證在工作表中允許唯一值

事實上， 數據驗證 Excel功能可以幫助您解決此問題，請執行以下操作：

1。 選擇僅要輸入唯一值的單元格或列，然後單擊 數據 > 數據驗證 > 數據驗證，請參見屏幕截圖：

2。 在 數據驗證 對話框，請執行以下操作：

（1.）點擊 設定 標籤;

（2.）在 讓 下拉列表，選擇 習俗;

（3.）並輸入以下公式： = COUNTIF（$ E：$ E，E1）<2 (E 是您只希望允許唯一值的列， E1 是您要使用的列的第一個單元格） 公式 文本框。

3。 然後點擊 OK 按鈕，從現在開始，當您在設置的特定列中輸入重複值時，將彈出警告消息提醒您，請參見屏幕截圖：

僅使用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 按鈕，重複的值將被刪除。

Kutools for Excel僅在工作表中允許唯一值

如果您有上述兩種方法，只能防止一列中的重複項 Excel的Kutools，其 防止重複 實用程序可以幫助您快速防止在一定範圍的單元格中僅重複一列或一行。

安裝後 Excel的Kutools，請執行以下操作：

1。 選擇要防止重複值但只允許唯一數據的列或單元格範圍。

2。 然後點擊 庫工具 > 防止打字 > 防止重複，請參見屏幕截圖：

3。 將會彈出警告消息提醒您 數據驗證 如果應用此功能，將被刪除，請參見屏幕截圖：

4。 然後點擊 是 按鈕繼續，然後彈出另一個提示框，提醒您哪些單元已應用此功能。 看截圖：

5。 然後點擊 OK 按鈕，現在，當您在範圍A1：D15中輸入一些重複數據時，將顯示一個提示框，提醒您重複數據無效，您只需要輸入唯一值即可。 看截圖：

200多種功能可以使您的工作高效，您可以 免費下載Kutools for Excel。

演示：使用Kutools for Excel僅在工作表中允許唯一值

---

最佳辦公效率工具

Kutools for Excel 解決了你的大部分問題，並將你的生產力提高了 80%

• 重用: 快速插入 複雜的公式，圖表 以及您以前使用過的任何東西； 加密單元 帶密碼 創建郵件列表 並發送電子郵件...
• 超級公式欄 （輕鬆編輯多行文本和公式）； 閱讀版式 （輕鬆讀取和編輯大量單元格）； 粘貼到過濾範圍...
• 合併單元格/行/列 不會丟失數據； 拆分單元格內容； 合併重複的行/列...防止細胞重複； 比較範圍...
• 選擇重複或唯一 行; 選擇空白行 （所有單元格都是空的）； 超級查找和模糊查找 在許多工作簿中； 隨機選擇...
• 確切的副本 多個單元格，無需更改公式參考； 自動創建參考 到多張紙； 插入項目符號，複選框等...
• 提取文字，添加文本，按位置刪除， 刪除空間; 創建和打印分頁小計； 在單元格內容和註釋之間轉換...
• 超級濾鏡 （將過濾方案保存並應用於其他工作表）； 高級排序 按月/週/日，頻率及更多； 特殊過濾器 用粗體，斜體...
• 結合工作簿和工作表; 根據關鍵列合併表； 將數據分割成多個工作表; 批量轉換xls，xlsx和PDF...
• 超過 300 項強大的功能. 支持 Office / Excel 2007-2021 和 365。支持所有語言。 在您的企業或組織中輕鬆部署。 完整功能 30 天免費試用。 60 天退款保證。

閱讀更多... 免費下載... 採購... 

---

Office選項卡為Office帶來了選項卡式界面，使您的工作更加輕鬆

• 在Word，Excel，PowerPoint中啟用選項卡式編輯和閱讀，發布者，Access，Visio和Project。
• 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
• 將您的工作效率提高 50%，每天為您減少數百次鼠標點擊！

閱讀更多... 免費下載... 採購...