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

 Як дозволити лише унікальні значення в Excel?

Якщо ви хочете зберегти лише унікальні значення, що вводяться в стовпець робочого аркуша, і запобігти дублікатам, ця стаття запропонує кілька швидких прийомів для вирішення цього завдання.

Дозволити лише унікальні значення на аркуші з перевіркою даних

Дозволити лише унікальні значення на аркуші з кодом VBA

Дозволити унікальні значення лише на аркуші з Kutools для Excel


Дозволити лише унікальні значення на аркуші з перевіркою даних

У самому справі, Перевірка достовірності даних функція Excel може допомогти вам вирішити цю проблему, будь ласка, зробіть наступне:

1. Виділіть клітинки або стовпець, для яких потрібно ввести лише унікальні значення, а потім клацніть дані > Перевірка достовірності даних > Перевірка достовірності даних, див. скріншот:

doc допускає лише унікальний 1

2, в Перевірка достовірності даних діалоговому вікні, виконайте такі дії:

(1.) Клацніть на настройки вкладка;

(2.) Під дозволяти випадаючий список, виберіть виготовлений на замовлення;

(3.) І введіть цю формулу: = COUNTIF ($ E: $ E, E1) <2 (E - стовпець, для якого ви хочете дозволити лише унікальні значення, E1 є першою клітинкою стовпця, який ви хочете використовувати) в Formula текстове вікно.

doc допускає лише унікальний 2

3. А потім клацніть OK Кнопка, відтепер, коли ви вводите повторюване значення в конкретний встановлений вами стовпець, вискакує попереджувальне повідомлення, щоб нагадати вам, див. знімок екрана:

doc допускає лише унікальний 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

doc допускає лише унікальний 4

примітки: У наведеному вище коді A1: A1000 - це комірки стовпців, які потрібно запобігти дублюванню.

2. Потім збережіть і закрийте цей код, тепер, коли ви вводите повторювані значення в комірку A1: A1000, вискакує попереджувальне повідомлення, щоб нагадати, що введення дублікатів заборонено, див. Знімок екрана:

doc допускає лише унікальний 5

3. Потім натисніть OK кнопку, дублікат значення буде видалено.


Дозволити унікальні значення лише на аркуші з Kutools для Excel

Зазначені два способи можуть запобігти повторним записам в одному стовпці, якщо вони є Kutools для Excel, його Запобігти дублюванню Утиліта може допомогти вам швидко запобігти дублюванню в діапазоні комірок і лише в одному стовпці або рядку.

Kutools для Excel : з більш ніж 300 зручними надбудовами Excel, які можна спробувати без обмежень протягом 30 днів. 

після установки Kutools для Excel, будь ласка, виконайте наступне:

1. Виберіть стовпець або діапазон комірок, які потрібно запобігти повторним значенням, але дозволяти лише унікальні дані.

2. Потім натисніть Кутулс > Запобігання друку > Запобігти дублюванню, див. скріншот:

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

doc допускає лише унікальний 7

4. Потім натисніть Так , щоб продовжити, і вискакує ще одне підказне вікно, щоб нагадати, до яких комірок застосовано цю функцію. Дивіться знімок екрана:

doc допускає лише унікальний 8

5. А потім клацніть OK Кнопка, тепер, коли ви вводите кілька повторюваних даних у діапазоні A1: D15, відображається підказка, щоб нагадати, що дані, що повторюються, недійсні, вам потрібно ввести лише унікальне значення. Дивіться знімок екрана:

doc допускає лише унікальний 9

Більше 200 функцій можуть зробити вашу роботу ефективно, ви можете завантажте Kutools для Excel безкоштовно.


Демонстрація: дозволяти лише унікальні значення на аркуші з Kutools для Excel

Kutools для Excel: з більш ніж 300 зручними надбудовами Excel, спробуйте безкоштовно без обмежень протягом 30 днів. Завантажте та безкоштовно пробну версію зараз!

Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

  • Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Понад 300 потужних функцій. Підтримує Office / Excel 2007-2019 та 365. Підтримує всі мови. Простота розгортання на вашому підприємстві чи в організації. Повна функція 30-денної безкоштовної пробної версії. 60-денна гарантія повернення грошей.
вкладка kte 201905

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (3)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
this formula didn't work =COUNTIF($A:$A,A2)&lt;2
Робін Редху
Цей коментар був мінімізований модератором на сайті
Будь ласка, спробуйте формулу нижче:

=COUNTIF($A:$A,A1)&lt;2
Нірав Парсана
Цей коментар був мінімізований модератором на сайті
Я очікував, що формула спрацює, коли ви також вставите. Але для мене це працює, тільки якщо я друкую. Під час введення значення, яке не є унікальним, я бачу повідомлення про помилку, і мені заборонено продовжувати. Що чудово. Однак, якщо я вставлю значення, повідомлення про помилку не з’явиться. Це очікувано, чи я щось роблю не так?
Лілія Ашикова
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0  Персонажі
Рекомендовані місця