Note: The other languages of the website are Google-translated. Back to English

Comment supprimer les caractères non alphanumériques dans Excel?

En supposant qu'il existe une gamme de données, telles que JAMES0898 # 4% ^ {}, qui contient des caractères non alphanumériques dans une feuille de calcul, et maintenant vous voulez simplement supprimer les caractères non alphanumériques et conserver les caractères alphanumériques. Par exemple, JAMES0898 # 4% ^ {} > JAMES0898. Comment supprimer rapidement ces caractères non alphanumériques dans Excel?


Supprimer les caractères non alphanumériques avec le code VBA

Avec le court code VBA suivant, vous pouvez également supprimer les caractères non alphanumériques. Vous pouvez le faire comme ceci:

1. presse autre + F11 clés ensemble pour ouvrir le Microsoft Visual Basic pour les applications fenêtre.

2. Cliquez insérer > Module, puis collez ci-dessous le code VBA dans le module:

VBA: supprimer tous les caractères non alphanumériques

Sub RemoveNotAlphasNotNum()
'Updateby2014128
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    xOut = ""
    For i = 1 To Len(Rng.Value)
        xTemp = Mid(Rng.Value, i, 1)
        If xTemp Like "[a-z.]" Or xTemp Like "[A-Z.]" Or xTemp Like "[0-9.]" Then
            xStr = xTemp
        Else
            xStr = ""
        End If
        xOut = xOut & xStr
    Next i
    Rng.Value = xOut
Next
End Sub

3. presse F5 ou cliquez sur la cours bouton pour exécuter le code.

4. Sélectionnez ensuite une plage dans laquelle vous souhaitez supprimer tous les caractères non alphanumériques dans la boîte de dialogue contextuelle, puis cliquez sur le bouton OK .

Désormais, tous les caractères non alphanumériques ont été supprimés de la plage sélectionnée. Voir la capture d'écran:

2 clics pour supprimer tous les caractères non alphanumériques par un outil incroyable

Nous plaçons généralement le curseur dans une cellule, puis supprimons manuellement les caractères non alphanumériques un par un. Si vous êtes familiarisé avec VBA ou les fonctions définies par l'utilisateur, vous pouvez le coder et supprimer tous les caractères non alphanumériques en bloc. Mais ici, je recommanderai un outil incroyable, la fonction Supprimer les caractères de Kutools for Excel, qui peut supprimer toutes sortes de caractères en 2 clics seulement!


Supprimer les caractères non alphanumériques avec la fonction définie par l'utilisateur

Vous pouvez également définir une fonction personnalisée pour supprimer tous les caractères non alphanumériques des cellules dans Excel.

1. presse autre + F11 clés ensemble pour ouvrir le Microsoft Visual Basic pour les applications fenêtre.

2Cliquez sur insérer > Module, puis collez le code ci-dessous dans le module:

Fonction définie par l'utilisateur: supprimer tous les caractères non alphanumériques

Function DeleteNonAlphaNumeric(xStr As String) As String
Dim xStrR As String
Dim xCh As String

Dim xStrMode As String
Dim xInt As Integer
    xStrMode = "[A-Z.a-z 0-9]"
    xStrR = ""
    For xInt = 1 To Len(xStr)
        xCh = Mid(xStr, xInt, 1)
        If xCh Like xStrMode Then
            xStrR = xStrR & xCh
        End If
    Next
    DeleteNonAlphaNumeric = xStrR
End Function
    

3. Revenez maintenant à la feuille de calcul, sélectionnez une cellule vide et entrez la formule = DeleteNonAlphaNumeric (B3), puis faites glisser le téléchargement de la poignée de saisie automatique pour appliquer cette formule à d'autres cellules.


Supprimer les caractères non alphanumériques avec Kutools for Excel

Avec les deux méthodes ci-dessus, vous devez connaître les codes, mais en tant que débutants d'Excel, la plupart d'entre nous ne peuvent pas utiliser le code, alors je vais vous donner ici un moyen facile de le faire.

Kutools pour Excel- Comprend plus de 300 outils pratiques pour Excel. Essai gratuit de toutes les fonctionnalités 30-journée, aucune carte de crédit requise ! Achetez-le Maintenant

Si vous avez installé Kutools for Excel, procédez comme suit:

1. Sélectionnez la plage dont vous avez besoin pour supprimer les caractères non alphanumériques, puis cliquez sur Kutools > Texte > Supprimer les caractères.

2. Puis un Supprimer les caractères boîte de dialogue apparaîtra, cochez uniquement Non alphanumérique option, et cliquez sur le Ok .

Désormais, tous les caractères non alphanumériques ont été supprimés des chaînes de texte.


Articles Liés:


Les meilleurs outils de productivité de bureau

Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

  • Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
  • Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtréeplus
  • Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammesplus
  • Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
  • Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
  • Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellulesplus
  • Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
  • Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDFplus
  • Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2021 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Fonctionnalités complètes Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.
onglet kte 201905

Office Tab apporte une interface à onglets à Office et simplifie considérablement 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!
bas de cabine
Commentaires (3)
Pas encore de notes. Soyez le premier à évaluer!
Ce commentaire a été minimisé par le modérateur sur le site
Merci pour le partage, mais je n'aime toujours pas la méthode de la boîte de saisie... :D
Ce commentaire a été minimisé par le modérateur sur le site
La méthode VBA a fonctionné, mais ne fonctionne que sur la plage sélectionnée. Vous ne pouvez pas spécifier la sortie dans une plage de cellules différente de celle de l'entrée. Vous devez donc copier les données source dans la plage cible, sélectionner les données, exécuter le script et lui permettre de sortir dans la plage par défaut. De plus, le point (.) n'est pas considéré comme un caractère spécial, donc si vous souhaitez également les supprimer, vous devrez rechercher et remplacer.
Ce commentaire a été minimisé par le modérateur sur le site
Comment supprimez-vous les caractères tout en conservant le séparateur d'espace ?
Il n'y a pas encore de commentaires postés ici
Laisser vos commentaires
Publier en tant qu'invité
×
Évaluez cet article:
0   Personnages
Emplacements suggérés

Nous suivre

Copyright © 2009 - www.extendoffice.com. | Tous les droits sont réservés. Alimenté par ExtendOffice. | | Plan du site
Microsoft et le logo Office sont des marques commerciales ou des marques déposées de Microsoft Corporation aux États-Unis et / ou dans d'autres pays.
Protégé par Sectigo SSL