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

 Как разрешить только уникальные значения в Excel?

Если вы хотите сохранить только уникальные значения, вводимые в столбец рабочего листа, и предотвратить дублирование, в этой статье будут представлены некоторые быстрые приемы, которые помогут вам справиться с этой задачей.

Разрешить только уникальные значения на листе с проверкой данных

Разрешить только уникальные значения на листе с кодом VBA

Разрешить только уникальные значения на листе с Kutools for Excel


Разрешить только уникальные значения на листе с проверкой данных

В самом деле, проверка достоверности данных Функция Excel может помочь вам решить эту проблему, пожалуйста, сделайте следующее:

1. Выделите ячейки или столбец, в которые нужно ввести только уникальные значения, а затем щелкните Данные > проверка достоверности данных > проверка достоверности данных, см. снимок экрана:

документ разрешает только уникальный 1

2. В проверка достоверности данных диалоговом окне выполните следующие действия:

(1.) Щелкните значок Настройки вкладка;

(2.) Под Разрешить раскрывающийся список, выберите На заказ;

(3.) И введите эту формулу: = СЧЁТЕСЛИ ($ E: $ E; E1) <2 (E столбец, в котором вы хотите разрешить только уникальные значения, E1 это первая ячейка столбца, который вы хотите использовать) в Формула текстовое окно.

документ разрешает только уникальный 2

3, Затем нажмите OK кнопка, с этого момента, когда вы вводите повторяющееся значение в определенный столбец, который вы установили, появится предупреждающее сообщение, напоминающее вам, см. снимок экрана:

документ разрешает только уникальный 3


Разрешить только уникальные значения на листе с кодом 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

документ разрешает только уникальный 4

Внимание: В приведенном выше коде A1: A1000 - это ячейки столбца, дублирование которых необходимо предотвратить.

2. Затем сохраните и закройте этот код, теперь, когда вы вводите повторяющиеся значения в ячейку A1: A1000, появляется предупреждающее сообщение, чтобы напомнить вам, что повторяющаяся запись не разрешена, см. Снимок экрана:

документ разрешает только уникальный 5

3. Затем нажмите OK кнопку, повторяющееся значение будет удалено.


Разрешить только уникальные значения на листе с Kutools for Excel

Два вышеуказанных метода могут предотвратить дублирование записей только в одном столбце, если у вас есть Kutools for Excel, Его Предотвратить дублирование Утилита может помочь вам быстро предотвратить дублирование в диапазоне ячеек и только в одном столбце или строке.

Kutools for Excel : с более чем 300 удобными надстройками Excel, бесплатно и без ограничений в течение 30 дней. 

После установки Kutools for Excel, пожалуйста, сделайте следующее:

1. Выберите столбец или диапазон ячеек, в которых вы хотите предотвратить повторяющиеся значения, но разрешить только уникальные данные.

2. Затем нажмите Кутулс > Предотвратить ввод > Предотвратить дублирование, см. снимок экрана:

3. Появится предупреждающее сообщение, чтобы напомнить вам проверка достоверности данных будет удален при применении этой функции, см. снимок экрана:

документ разрешает только уникальный 7

4. Затем нажмите Да кнопку, чтобы продолжить, и появится еще одно окно подсказки, чтобы напомнить вам, в каких ячейках была применена эта функция. Смотрите скриншот:

документ разрешает только уникальный 8

5, Затем нажмите OK Теперь, когда вы вводите повторяющиеся данные в диапазоне A1: D15, отображается окно подсказки, чтобы напомнить вам, что повторяющиеся данные недействительны, вам нужно только ввести уникальное значение. Смотрите скриншот:

документ разрешает только уникальный 9

Более 200 функций могут сделать вашу работу более эффективной, вы можете скачать Kutools for Excel бесплатно.


Демо: разрешить только уникальные значения на листе с Kutools for Excel

Kutools for Excel: с более чем 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, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (3)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
эта формула не работает =СЧЁТЕСЛИ($A:$A,A2)<2
Этот комментарий был сведен к минимуму модератором на сайте
Пожалуйста, попробуйте следующую формулу:

=СЧЁТЕСЛИ($A:$A,A1)<2
Этот комментарий был сведен к минимуму модератором на сайте
Я ожидал, что формула будет работать и при вставке. Но для меня это работает, только если я печатаю. При вводе значения, которое не является уникальным, я вижу сообщение об ошибке, и мне не разрешено продолжать. Это здорово. Однако, если я вставлю значение, сообщение об ошибке не появится. Это ожидаемо или я что-то не так делаю?
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL