Как удалить повторяющиеся символы или слова в строке ячейки?
Предположим, что в каждой ячейке есть повторяющиеся символы или слова, и вы хотите удалить дубликаты и оставить только уникальные символы или слова. Как бы вы могли решить эту проблему в Excel?
Удалите повторяющиеся символы текстовой строки с помощью функции, определяемой пользователем
Удалите повторяющиеся символы текстовой строки с помощью функции, определяемой пользователем
Если у вас есть список текстовой строки, теперь вам нужно удалить повторяющиеся символы, как показано на следующем снимке экрана. Здесь я могу поговорить о коде VBA для решения этой проблемы.
1. Удерживайте ALT + F11 , чтобы открыть Окно Microsoft Visual Basic для приложений.
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. Затем перетащите дескриптор заполнения к ячейкам диапазона, к которым вы хотите применить эту формулу, все повторяющиеся символы будут немедленно удалены из каждой ячейки.
Удалите повторяющиеся слова, разделенные знаками препинания, с помощью функции, определяемой пользователем
Если в ячейке есть слова, разделенные определенными знаками препинания, вы также можете удалить повторяющиеся слова по своему усмотрению. Пожалуйста, выполните следующие действия:
1. Удерживая нажатой ALT + F11 , чтобы открыть Окно Microsoft Visual Basic для приложений.
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 указывает ячейку, которую вы хотите использовать, а запятая (,) обозначает знак препинания, разделяющий слова в ячейке, вы можете изменить его на любые другие знаки препинания по своему усмотрению.
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
