Як видалити повторювані символи або слова в рядку комірки?
Припустимо, що в кожній комірці є повторювані символи або слова, і ви хочете видалити дублікати і залишити лише унікальні символи або слова. Як ви могли вирішити цю проблему в Excel?
Видаліть повторювані символи текстового рядка за допомогою функції користувача
Видаліть повторювані символи текстового рядка за допомогою функції користувача
Якщо у вас є список текстових рядків, то тепер вам потрібно видалити повторювані символи, як показано на наступному знімку екрана. Тут я можу поговорити про код VBA, щоб з ним боротися.
1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Вікно Microsoft Visual Basic для програм.
2. Клацання Insert > Модуліта вставте наступний код у Вікно модуля.
Код 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. Клацання Insert > Модуліта вставте наступний код у Вікно модуля.
Код 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 Tab Надає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
