Hoe verwijder ik niet-Engelse tekens in de Excel-kolom?
Hier is bijvoorbeeld een lijst met namen die enkele niet-Engelse karakters bevatten. Hoe kun je snel de cellen verwijderen die niet-Engelse tekens bevatten in Excel?
Verwijder rijen met niet-Engelse tekens door VBA
Verwijder niet-Engelse tekens uit tekenreeks door Karakters verwijderen
Verwijder rijen bevatten niet-Engelse tekens door VBA
Hier is een VBA die de rijen met niet-Engelse tekens in Excel kan verwijderen.
1. Activeer het werkblad met de tekens die u wilt verwijderen, en druk op Alt + F11 toetsen om het Microsoft Visual Basic voor toepassingen venster.
2. klikken Invoegen > Module, en plak onderstaande code in het Module.
VBA: verwijder niet-Engelse tekens
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. druk op F5 -toets om de kolomlijst te selecteren die u wilt gebruiken in het popping-dialoogvenster.
4. klikken OK > OK, en vervolgens zijn de rijen met niet-Engelse tekens verwijderd.
Note: deze VBA werkt alleen voor 茅茅n kolom.
Verwijder niet-Engelse tekens uit tekenreeks door Karakters verwijderen
Als u niet-Engelse tekens uit de tekenreeks wilt verwijderen, zoals onderstaand screenshot, kunt u zich aanmelden Kutools for Excel's Tekens verwijderen functie om het snel af te maken.
Kutools for Excel, met meer dan 300 handige functies, maakt uw werk eenvoudiger. |
Na het installeren van Kutools voor Excel, doe het als volgt:锛圖ownload nu Kutools voor Excel!)
1. Selecteer het bereik dat u nodig heeft en klik op Kutools > Tekst > Tekens verwijderen. Zie screenshot:
2. Controleren Niet-alfa alleen in de Tekens verwijderen dialoogvenster kunt u het resultaat zien in het Voorbeschouwing kopen.
3. klikken Ok, zijn de niet-Engelse karakters verwijderd uit strings.
Demo
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar effici毛ntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!