Як видалити неанглійські символи в стовпці 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 для ExcelАвтора Видалити символи функція, щоб швидко її закінчити.

після установки Kutools для Excel, будь-ласка, виконайте наведені нижче дії:（Безкоштовно завантажте Kutools для Excel зараз!)

1. Виберіть потрібний діапазон і натисніть Кутулс > текст > Видалити символи. Дивіться знімок екрана:

2. перевірити Неальфа тільки в Видалити символи у діалоговому вікні ви можете побачити результат у попередній перегляд перший.

3. клацання Ok, неанглійські символи були вилучені із рядків.

  Демонстрація

---

Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

• Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
• Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
• Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
• Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
• Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
• Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
• Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
• Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
• Понад 300 потужних функцій. Підтримує Office / Excel 2007-2021 і 365. Підтримує всі мови. Легке розгортання на вашому підприємстві чи в організації. 30-денна безкоштовна пробна версія повних функцій. 60-денна гарантія повернення грошей.

Детальніше ... Завантажити безкоштовно... Придбати ... 

---

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

• Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
• Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
• Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!

Детальніше ... Завантажити безкоштовно... Придбати ...