Как разрешить только уникальные значения в Excel?
Если вы хотите сохранить только уникальные значения, вводимые в столбец рабочего листа, и предотвратить дублирование, в этой статье будут представлены некоторые быстрые приемы, которые помогут вам справиться с этой задачей.
Разрешить только уникальные значения на листе с проверкой данных
Разрешить только уникальные значения на листе с кодом VBA
Разрешить только уникальные значения на листе с Kutools for Excel
Разрешить только уникальные значения на листе с проверкой данных
В самом деле, проверка достоверности данных Функция Excel может помочь вам решить эту проблему, пожалуйста, сделайте следующее:
1. Выделите ячейки или столбец, в которые нужно ввести только уникальные значения, а затем щелкните Данные > проверка достоверности данных > проверка достоверности данных, см. снимок экрана:
2. В проверка достоверности данных диалоговом окне выполните следующие действия:
(1.) Щелкните значок Настройки вкладка;
(2.) Под Разрешить раскрывающийся список, выберите На заказ;
(3.) И введите эту формулу: = СЧЁТЕСЛИ ($ E: $ E; E1) <2 (E столбец, в котором вы хотите разрешить только уникальные значения, E1 это первая ячейка столбца, который вы хотите использовать) в Формула текстовое окно.
3, Затем нажмите OK кнопка, с этого момента, когда вы вводите повторяющееся значение в определенный столбец, который вы установили, появится предупреждающее сообщение, напоминающее вам, см. снимок экрана:
Разрешить только уникальные значения на листе с кодом VBA
Если вас интересует код VBA, следующий код также может оказать вам услугу.
1. Щелкните правой кнопкой мыши вкладку листа, на которой вы хотите разрешить только отрицательные числа, и выберите Просмотреть код из контекстного меню во всплывающем Microsoft Visual Basic для приложений окна, скопируйте и вставьте следующий код в пустое Модули:
Код 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
Два вышеуказанных метода могут предотвратить дублирование записей только в одном столбце, если у вас есть Kutools for Excel, Его Предотвратить дублирование Утилита может помочь вам быстро предотвратить дублирование в диапазоне ячеек и только в одном столбце или строке.
| Kutools for Excel : с более чем 300 удобными надстройками Excel, бесплатно и без ограничений в течение 30 дней. |
После установки Kutools for Excel, пожалуйста, сделайте следующее:
1. Выберите столбец или диапазон ячеек, в которых вы хотите предотвратить повторяющиеся значения, но разрешить только уникальные данные.
2. Затем нажмите Кутулс > Предотвратить ввод > Предотвратить дублирование, см. снимок экрана:
3. Появится предупреждающее сообщение, чтобы напомнить вам проверка достоверности данных будет удален при применении этой функции, см. снимок экрана:
4. Затем нажмите Да кнопку, чтобы продолжить, и появится еще одно окно подсказки, чтобы напомнить вам, в каких ячейках была применена эта функция. Смотрите скриншот:
5, Затем нажмите OK Теперь, когда вы вводите повторяющиеся данные в диапазоне A1: D15, отображается окно подсказки, чтобы напомнить вам, что повторяющиеся данные недействительны, вам нужно только ввести уникальное значение. Смотрите скриншот:
Более 200 функций могут сделать вашу работу более эффективной, вы можете скачать Kutools for Excel бесплатно.
Демо: разрешить только уникальные значения на листе с Kutools for Excel
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
