2 простых способа предотвратить дублирование значений в столбце Excel

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

Иногда при редактировании рабочего листа Excel может потребоваться обеспечить уникальность данных в столбце, а именно предотвратить дублирование значений в столбце. Это требует, чтобы Excel автоматически предупреждал вас каждый раз, когда вы вводите повторяющиеся значения в столбце. После этого мы поделимся с вами двумя быстрыми способами его получить.

Способ 1: Предотвратить с помощью «Проверки данных»

1. Прежде всего, выберите все ячейки в определенном столбце, например «Столбец A».
2. Затем перейдите на вкладку «Данные» и нажмите кнопку «Проверка данных» в группе «Инструменты данных».
3. Затем во всплывающем диалоговом окне на вкладке «Настройки» выберите «Пользовательский» в раскрывающемся списке «Разрешить».
4. После этого введите следующую формулу в поле «Формула».

= СЧЕТЕСЛИ ($ A $ 1: $ A $ 20, A1) = 1

5. Позже переключитесь на вкладку «Предупреждение об ошибке» в текущем диалоговом окне.
6. Впоследствии вы можете настроить сообщение об ошибке в соответствии с вашими потребностями, например, указав «Повторяющиеся значения» в качестве заголовка ошибки и «Значение было введено в тот же столбец!» как сообщение об ошибке.
7. Наконец, нажмите «ОК».
8. Теперь вы можете попробовать.

• Сначала введите значение в ячейку A1.
• Затем введите то же значение в ячейку A2.
• Сразу же вы получите сообщение об ошибке, как показано на следующем снимке экрана.

Способ 2: предотвратить с помощью Excel VBA

1. Для начала запустите редактор Excel VBA со ссылкой на «Как запустить код VBA в вашем Excel».
2. Затем поместите следующий код в проект листа, например «Лист 1 (Лист 1)».

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim strTargetColumn As String
   Dim nTargetRow As Integer
   Dim nLastRow As Integer
   Dim strMsg As String

   strTargetColumn = Split(Target.Address(, False), "$")(0)
   nTargetRow = Split(Target.Address(, False), "$")(1)
   nLastRow = ActiveSheet.Range(strTargetColumn & ActiveSheet.Rows.Count).End(xlUp).Row

   For nRow = 1 To nLastRow
       If nRow <> nTargetRow Then
          If ActiveSheet.Range(strTargetColumn & nRow).Value = Target.Value Then
             strMsg = "The value has been entered in the same column!"
             MsgBox strMsg, vbExclamation + vbOKOnly, "Duplicate Values"
             Target.Select
             Exit For
          End If
       End If
   Next
End Sub

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

сравнение

Верните драгоценные данные Excel

Excel, по общему признанию, склонен к сбоям. И каждый раз, когда он выходит из строя, открытый в данный момент файл Excel может быть поврежден как ветер. Следовательно, чтобы избежать потери ценных данных Excel, вы должны не только регулярно создавать их резервные копии, но и иметь замечательный xls восстановление инструмент, такой как DataNumen Excel Repair. Это пригодится в случае серьезного повреждения данных Excel.

Об авторе:

Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая поврежденный мдф и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com