Як видалити неанглійські символи в стовпці Excel?
Наприклад, ， ось список імен, які містять деякі неанглійські символи. Як можна швидко видалити комірки, які містять неанглійські символи в Excel?
Видаліть рядки, що містять неанглійські символи, за допомогою VBA
Видаліть неанглійські символи із рядка, видаливши символи
Видалення рядків містять неанглійські символи від VBA
Ось VBA, який може видалити рядки, що містять неанглійські символи в Excel.
1. Активуйте робочий аркуш, що містить символи, які потрібно видалити, і натисніть Alt + F11 клавіші, щоб увімкнути Microsoft Visual Basic для додатків вікна.
2. клацання Insert > Модулі, і вставте код нижче в Модулі.
VBA: Видаліть неанглійські символи
Sub RemoveNonEnglish()
'UpdatebyExtendoffice20171204
Dim xRg As Range
Dim xCell As Range
Dim I As Long
Dim J As Long
Dim xRows As Long
Dim xAsc As Long
On Error Resume Next
Set xRg = Application.InputBox("Select single column:", "KuTools For Excel", Selection.Address, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
xRows = xRg.Rows.Count
Set xRg = xRg(1)
For I = 1 To xRows
Set xCell = xRg.Offset(I - 1)
If xCell.Value <> "" Then
For J = 1 To Len(xCell.Value)
xAsc = Asc(UCase(Mid(xCell.Value, J, 1)))
If xAsc < 65 Or xAsc > 90 Then
xCell.EntireRow.Delete
I = I - 1
Exit For
End If
Next
End If
Next
Application.ScreenUpdating = True
MsgBox "Completed...", vbInformation
End Sub
3. прес F5 клавіша для вибору списку стовпців, до якого потрібно скористатися, у діалоговому вікні, що з’являється.
4. клацання OK > OK, а потім рядки, що містять неанглійські символи, були видалені.
 |
 |
 |
примітки: цей VBA працює лише для одного стовпця.
Видаліть неанглійські символи із рядка, видаливши символи
Якщо ви хочете видалити неанглійські символи зі рядка, як показано на знімку екрана, ви можете подати заявку Kutools for ExcelАвтора Видалити символи функція, щоб швидко її закінчити.
 |
|
 |
| Kutools for Excel, з більш ніж 300 зручні функції, полегшує вам роботу. |
після установки Kutools for Excel, будь ласка, виконайте наведені нижче дії:(Безкоштовне завантаження Kutools for Excel Зараз!)
1. Виберіть потрібний діапазон і натисніть Кутулс > текст > Видалити символи. Дивіться знімок екрана:
2. перевірити Неальфа тільки в Видалити символи у діалоговому вікні ви можете побачити результат у попередній перегляд перший.
3. клацання Ok, неанглійські символи були вилучені із рядків.
Демонстрація
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools for Excel, і відчуйте ефективність, як ніколи раніше. Kutools for Excel Пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Office Tab Надає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
