Note: The other languages of the website are Google-translated. Back to English

 如何僅在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 for Excel 解決了你的大部分問題,並將你的生產力提高了 80%

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

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

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!
officetab底部
按評論排序
留言 (3)
還沒有評分。 成為第一位評論!
網站主持人對此評論進行了最小化
這個公式不起作用 =COUNTIF($A:$A,A2)<2
網站主持人對此評論進行了最小化
請嘗試以下公式:

=COUNTIF($A:$A,A1)<2
網站主持人對此評論進行了最小化
我期待這個公式在你粘貼時也會起作用。 但對我來說,它只有在我輸入時才有效。 當輸入一個不唯一的值時,我會看到錯誤消息,並且不允許我繼續。 這是偉大的。 但是,如果我粘貼該值,則不會出現錯誤消息。 這是預期的,還是我做錯了什麼?
這裡還沒有評論
留下你的意見
以訪客身份發帖
×
評價此帖子:
0   字符
推薦地點

關注我們

版權所有©2009 - 萬維網。extendoffice.com。 | 版權所有。 供電 ExtendOffice。 |
Microsoft和Office徽標是Microsoft Corporation在美國和/或其他國家的商標或註冊商標。
受Sectigo SSL保護