Wie entferne ich nicht englische Zeichen in der Excel-Spalte?
Zum Beispiel ist ， hier eine Liste von Namen, die einige nicht englische Zeichen enthalten. Wie können Sie die Zellen, die nicht englische Zeichen enthalten, in Excel schnell entfernen?
Entfernen Sie Zeilen mit nicht englischen Zeichen durch VBA
Entfernen Sie nicht englische Zeichen aus der Zeichenfolge, indem Sie Zeichen entfernen
Zeilen entfernen enthält nicht englische Zeichen von VBA
Hier ist ein VBA, der die Zeilen entfernen kann, die nicht englische Zeichen in Excel enthalten.
1. Aktivieren Sie das Arbeitsblatt mit den Zeichen, die Sie entfernen möchten, und drücken Sie Alt + F11 Tasten zum Aktivieren der Microsoft Visual Basic für Applikationen Fenster.
2 Klicken Insert > Modulund fügen Sie den folgenden Code in das ein Modul.
VBA: Entfernen Sie nicht englische Zeichen
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. Drücken Sie F5 Taste, um die Spaltenliste auszuwählen, die Sie im Popping-Dialogfeld verwenden möchten.
4 Klicken OK > OKund dann wurden die Zeilen mit nicht englischen Zeichen entfernt.
 |
 |
 |
Hinweis: Dieser VBA funktioniert nur für eine Spalte.
Entfernen Sie nicht englische Zeichen aus der Zeichenfolge, indem Sie Zeichen entfernen
Wenn Sie nicht-englische Zeichen aus der Zeichenfolge entfernen möchten (siehe Abbildung unten), können Sie sich bewerben Kutools for Excel Zeichen entfernen Funktion, um es schnell zu beenden.
 |
|
 |
| Kutools for Excel, mit mehr als 300 praktische Funktionen erleichtern Ihre Arbeit. |
Nach der Installation Kutools für Excel, bitte gehen Sie wie folgt vor:（Kutools für Excel jetzt kostenlos herunterladen!)
1. Wählen Sie den gewünschten Bereich aus und klicken Sie auf Kutoolen > Text > Zeichen entfernen. Siehe Screenshot:
2. Prüfen Nicht-Alpha nur in der Zeichen entfernen Dialog können Sie das Ergebnis in der sehen Vorschau zuerst.
3 Klicken Okwurden die nicht englischen Zeichen aus den Zeichenfolgen entfernt.
Zur Demo
Die besten Tools für die Office-Produktivität
Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%
- Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
- Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
- Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
- Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
- Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
- Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
- Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
- Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
- Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2021 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. 30-tägige kostenlose Testversion mit allen Funktionen. 60 Tage Geld-zurück-Garantie.
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
