跳到主要內容

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

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

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

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

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


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

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

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

doc只允許唯一1

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

(1.)點擊 設定 標籤;

(2.)在 下拉列表,選擇 習俗;

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

doc只允許唯一2

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

doc只允許唯一3


僅使用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

doc只允許唯一4

備註:在上面的代碼中, A1:A1000 是要防止重複的列單元格。

2。 然後保存並關閉此代碼,現在,當您在單元格A1:A1000中輸入重複值時,會彈出一條警告消息,提醒您不允許重複輸入,請參見屏幕截圖:

doc只允許唯一5

3。 然後點擊 OK 按鈕,重複的值將被刪除。


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

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

Excel的Kutools : 帶有300多個便捷的Excel加載項,可以在30天內免費試用. 

安裝後 Excel的Kutools,請執行以下操作:

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

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

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

doc只允許唯一7

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

doc只允許唯一8

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

doc只允許唯一9

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


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

Excel的Kutools:具有300多個方便的Excel加載項,可以在30天內免費試用,沒有任何限制。 立即下載並免費試用!

最佳辦公生產力工具

🤖 Kutools 人工智慧助手:基於以下內容徹底改變數據分析: 智慧執行   |  生成代碼  |  建立自訂公式  |  分析數據並產生圖表  |  呼叫 Kutools 函數...
熱門特色: 尋找、突出顯示或識別重複項   |  刪除空白行   |  合併列或儲存格而不遺失數據   |   沒有公式的回合 ...
超級查詢: 多條件VLookup    多值VLookup  |   跨多個工作表的 VLookup   |   模糊查詢 ....
高級下拉列表: 快速建立下拉列表   |  依賴下拉列表   |  多選下拉列表 ....
欄目經理: 新增特定數量的列  |  移動列  |  切換隱藏列的可見性狀態  |  比較範圍和列 ...
特色功能: 網格焦點   |  設計圖   |   大方程式酒吧    工作簿和工作表管理器   |  資源庫 (自動文字)   |  日期選擇器   |  合併工作表   |  加密/解密單元格    按清單發送電子郵件   |  超級濾鏡   |   特殊過濾器 (過濾粗體/斜體/刪除線...)...
前 15 個工具集12 文本 工具 (添加文本, 刪除字符,...)   |   50+ 圖表 類型 (甘特圖,...)   |   40+ 實用 公式 (根據生日計算年齡,...)   |   19 插入 工具 (插入二維碼, 從路徑插入圖片,...)   |   12 轉化 工具 (數字到單詞, 貨幣兌換,...)   |   7 合併與拆分 工具 (高級合併行, 分裂細胞,...)   |   ... 和更多

使用 Kutools for Excel 增強您的 Excel 技能,體驗前所未有的效率。 Kutools for Excel 提供了 300 多種進階功能來提高生產力並節省時間。  點擊此處獲取您最需要的功能...

產品描述


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

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I was expecting the formula would work when you paste too. But for me it only works if I type. When typing a value that is not unique I see the error massage and I'm not allowed to continue. Which is great. However, if I paste the value, no error message appears. Is that expected, or I am doing something wrong?
This comment was minimized by the moderator on the site
this formula didn't work =COUNTIF($A:$A,A2)<2
This comment was minimized by the moderator on the site
Please try below formula:

=COUNTIF($A:$A,A1)<2
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations