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.
Note: 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 Vorspann zuerst.
3 Klicken Okwurden die nicht englischen Zeichen aus den Zeichenfolgen entfernt.
Demo
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
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!