Як видалити небуквено-цифрові символи в Excel?
Припустимо, що існує цілий ряд даних, таких як JAMES0898 # 4% ^ {}, який містить небуквено-цифрові символи на аркуші, і тепер ви просто хочете лише видалити небуквено-цифрові символи та зберегти буквено-цифрові символи. Наприклад, JAMES0898 # 4% ^ {} > JAMES0898. Як швидко видалити ці нелітерально-цифрові символи в Excel?
- Видаліть нелітерально-цифрові символи за допомогою коду VBA
- Видаліть нелітерально-цифрові символи за допомогою визначеної користувачем функції
- Видаліть не буквено-цифрові символи за допомогою Kutools для Excel
Видаліть нелітерально-цифрові символи за допомогою коду VBA
За допомогою наведеного нижче короткого коду VBA ви також можете видалити нелітерально-цифрові символи. Ви можете зробити це так:
1. прес інший + F11 клавіші разом, щоб відкрити Microsoft Visual Basic для програм вікна.
2. клацання Insert > Модулі, а потім вставте нижче код VBA в Модуль:
VBA: Видаліть усі нелітерально-цифрові символи
Sub RemoveNotAlphasNotNum()
'Updateby2014128
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
xOut = ""
For i = 1 To Len(Rng.Value)
xTemp = Mid(Rng.Value, i, 1)
If xTemp Like "[a-z.]" Or xTemp Like "[A-Z.]" Or xTemp Like "[0-9.]" Then
xStr = xTemp
Else
xStr = ""
End If
xOut = xOut & xStr
Next i
Rng.Value = xOut
Next
End Sub
3. Прес F5 або клацніть на прогін кнопку для виконання коду.
4. Потім у спливаючому діалоговому вікні виберіть діапазон, який ви хочете видалити, всі букви та цифри та натисніть OK кнопки.
Тепер усі нелітерально-цифрові символи були видалені з вибраного діапазону. Дивіться знімок екрана:
2 клацання, щоб видалити всі нелітерально-цифрові символи за допомогою дивовижного інструменту
Зазвичай ми встановлюємо курсор у клітинку, а потім вручну видаляємо символи, які не є алфавітно-цифровими. Якщо ви знайомі з VBA або функціями, визначеними користувачем, ви можете закодувати їх і масово видалити всі небуквено-цифрові символи. Але тут я порекомендую дивовижний інструмент, функцію видалення символів Kutools for Excel, яка може видаляти всі типи символів лише 2 клацання миші!
Видаліть нелітерально-цифрові символи за допомогою визначеної користувачем функції
Ви також можете визначити власну функцію для видалення всіх нелітерально-цифрових символів із комірок у Excel.
1. Прес інший + F11 клавіші разом, щоб відкрити Microsoft Visual Basic для програм вікна.
2. Клацання Insert > Модулі, а потім вставте нижче код в Модуль:
Функція, визначена користувачем: Видаліть усі нелітерально-цифрові символи
Function DeleteNonAlphaNumeric(xStr As String) As String
Dim xStrR As String
Dim xCh As String
Dim xStrMode As String
Dim xInt As Integer
xStrMode = "[A-Z.a-z 0-9]"
xStrR = ""
For xInt = 1 To Len(xStr)
xCh = Mid(xStr, xInt, 1)
If xCh Like xStrMode Then
xStrR = xStrR & xCh
End If
Next
DeleteNonAlphaNumeric = xStrR
End Function
3. Тепер поверніться до робочого аркуша, виберіть порожню клітинку та введіть формулу = DeleteNonAlphaNumeric (B3), а потім перетягніть завантажувач ручки автозаповнення, щоб застосувати цю формулу до інших комірок.
Видаліть не буквено-цифрові символи за допомогою Kutools для Excel
За допомогою двох вищенаведених методів вам потрібно знати коди, але, як початківці Excel, більшість з нас не можуть використовувати код, тому тут я дам вам простий спосіб це зробити.
Kutools для Excel- Включає більше 300 зручних інструментів для Excel. Повна функція безкоштовної пробної версії 30 днів, кредитна картка не потрібна! Get It Now
Якщо ви встановили Kutools для Excel, виконайте такі дії:
1. Виберіть діапазон, з якого потрібно видалити нелітерально-цифрові символи, та натисніть Кутулс > текст > Видалити символи.
2. Тоді а Видалити символи з'явиться діалогове вікно, лише поставте галочку Небуквено-цифрові та натисніть кнопку Ok кнопки.
Тепер усі нелітерально-цифрові символи були видалені з текстових рядків.
Статті по темі:
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!