Как удалить повторяющиеся символы или слова в строке ячейки Excel?

Предположим, что в каждой ячейке есть повторяющиеся символы или слова, и вы хотите удалить дубликаты, оставив только уникальные символы или слова. Как можно решить эту проблему в Excel?

Удаление повторяющихся символов текстовой строки с помощью пользовательской функции

Удаление повторяющихся слов, разделенных знаками препинания, с помощью пользовательской функции

Удаление повторяющихся символов текстовой строки с помощью пользовательской функции

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

1. Нажмите и удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

2. Щелкните Вставить > Модуль и вставьте следующий код в окно Модуля.

Код VBA: Удаление повторяющихся символов текстовой строки в ячейке

Function RemoveDupes1(pWorkRng As Range) As String
'Updateby Extendoffice
Dim xValue As String
Dim xChar As String
Dim xOutValue As String
Set xDic = CreateObject("Scripting.Dictionary")
xValue = pWorkRng.Value
For i = 1 To VBA.Len(xValue)
    xChar = VBA.Mid(xValue, i, 1)
    If xDic.Exists(xChar) Then
    Else
        xDic(xChar) = ""
        xOutValue = xOutValue & xChar
    End If
Next
RemoveDupes1 = xOutValue
End Function

3. Затем сохраните и закройте этот код, вернитесь на лист и введите эту формулу =removedupes1(A2) (A2 — это ячейка данных, из которой вы хотите удалить дубликаты) в пустую ячейку рядом с вашими данными, см. скриншот:

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

Раскройте магию Excel с Kutools AI

• Умное выполнение: Выполняйте операции с ячейками, анализируйте данные и создавайте диаграммы — всё это посредством простых команд.
• Пользовательские формулы: Создавайте индивидуальные формулы для оптимизации ваших рабочих процессов.
• Кодирование VBA: Пишите и внедряйте код VBA без особых усилий.
• Интерпретация формул: Легко разбирайтесь в сложных формулах.
• Перевод текста: Преодолейте языковые барьеры в ваших таблицах.

Улучшите возможности Excel с помощью инструментов на базе ИИ. Скачать сейчас и испытайте беспрецедентную эффективность!

Удаление повторяющихся слов, разделенных знаками препинания, с помощью пользовательской функции

Если в ячейке есть слова, разделенные определенными знаками препинания, вы также можете удалить повторяющиеся слова по своему усмотрению. Пожалуйста, выполните следующие шаги:

1. Нажмите и удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

2. Щелкните Вставить > Модуль и вставьте следующий код в окно Модуля.

Код VBA: Удаление повторяющихся слов, разделенных знаками препинания в ячейке

Function RemoveDupes2(txt As String, Optional delim As String = " ") As String
    Dim x
    'Updateby Extendoffice
    With CreateObject("Scripting.Dictionary")
        .CompareMode = vbTextCompare
        For Each x In Split(txt, delim)
            If Trim(x) <> "" And Not .exists(Trim(x)) Then .Add Trim(x), Nothing
        Next
        If .Count > 0 Then RemoveDupes2 = Join(.keys, delim)
    End With
End Function

3. Затем сохраните и закройте этот код, вернитесь на лист и введите эту формулу =RemoveDupes2(A2,",") в пустую ячейку рядом с вашими данными, см. скриншот:

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

Примечание: В приведенной выше формуле A2 указывает на ячейку, которую вы хотите использовать, а запятая (,) обозначает знак препинания, который разделяет слова в ячейке. Вы можете изменить его на любой другой знак препинания по мере необходимости.