Comment supprimer les caractères non anglais dans la colonne Excel?
Par exemple, , voici une liste de noms qui incluent des caractères non anglais. Comment supprimer rapidement les cellules contenant des caractères non anglais dans Excel?
Supprimer les lignes contenant des caractères non anglais par VBA
Supprimer les caractères non anglais de la chaîne en supprimant les caractères
Supprimer les lignes contenant des caractères non anglais par VBA
Voici un VBA qui peut supprimer les lignes qui contiennent des caractères non anglais dans Excel.
1. Activez la feuille de calcul contenant les caractères à supprimer et appuyez sur Alt + F11 touches pour activer Microsoft Visual Basic pour applications fenêtre.
2. Cliquez insérer > Module, et collez le code ci-dessous dans le Module.
VBA: supprimer les caractères non anglais
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. presse F5 pour sélectionner la liste de colonnes que vous souhaitez utiliser dans la boîte de dialogue contextuelle.
4. Cliquez OK > OK, puis les lignes contenant des caractères non anglais ont été supprimées.
Notes: ce VBA ne fonctionne que pour une colonne.
Supprimer les caractères non anglais de la chaîne en supprimant les caractères
Si vous souhaitez supprimer les caractères non anglais de la chaîne comme illustré ci-dessous, vous pouvez appliquer Kutools for Excel's Supprimer les caractères fonction pour le terminer rapidement.
Kutools for Excel, avec plus de 300 fonctions pratiques, rend vos travaux plus faciles. |
Après l'installation de Kutools for Excel, procédez comme suit:(Téléchargez gratuitement Kutools pour Excel maintenant!)
1. Sélectionnez la plage dont vous avez besoin et cliquez sur Kutools > Texte > Supprimer les caractères. Voir la capture d'écran:
2. Vérifier Non alpha seulement dans le Supprimer les caractères boîte de dialogue, vous pouvez voir le résultat dans le Aperçu d'abord.
3. Cliquez Ok, les caractères non anglais ont été supprimés des chaînes.
Démo
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et facilite grandement votre travail
- Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!