Comment extraire le code postal de la liste d'adresses dans Excel?
Il existe une liste d'adresses complètes comprenant les codes postaux de vos clients dans Excel, et maintenant vous souhaitez extraire uniquement les codes postaux de ces adresses, avez-vous un meilleur moyen que de les extraire un par un? Ici, je vous explique les moyens rapides d'extraire en masse plusieurs codes postaux à la fois dans Excel.
Extraire le code postal avec la formule dans Excel
Extraire le code postal avec VBA dans Excel
Extraire le code postal avec la formule dans Excel
Dans la plupart des cas, le code postal ne dépasse pas 8 caractères.
Sélectionnez une cellule vide et tapez cette formule =MID(A1,FIND("zzz",SUBSTITUTE(A1," ","zzz",SUMPRODUCT(1*((MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))=" "))-1))+1,LEN(A1)) (A1 est la cellule dont vous souhaitez extraire le code postal), appuyez sur Entrer et remplissez la plage souhaitée en faisant glisser la poignée de recopie. Vous pouvez maintenant voir que seuls les codes postaux sont extraits de la liste.
Extraire le code postal avec VBA dans Excel
Il existe un VBA qui peut extraire rapidement les codes postaux des adresses complètes dans Excel.
1. Sélectionnez une cellule de la colonne que vous souhaitez sélectionner et appuyez sur Alt + F11 pour ouvrir le Microsoft Visual Basic pour applications fenêtre.
2. Dans la fenêtre contextuelle, cliquez sur insérer > Module, puis collez le code VBA suivant dans le module.
VBA: extraire uniquement les codes postaux
Sub ExtractPostCode()
'Updateby20140512
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
xValue = Split(Rng.Value, " ")
For i = LBound(xValue) To UBound(xValue)
If xValue(i) Like "[A-Z]*#*" Then
Rng.Value = xValue(i) & " " & xValue(i + 1)
Exit For
End If
Next
Next
End Sub3. Puis clique Courir et sélectionnez la plage dont vous souhaitez extraire les codes postaux uniquement. Voir la capture d'écran:
4. Cliquez OK, vous pouvez voir que seuls les codes postaux sont réservés dans la plage.
Remarque:
(1) L'exécution du VBA ci-dessus modifiera vos données d'origine, vous feriez mieux de les copier et de les enregistrer d'abord.
(2) Cette macro VBA ne peut pas extraire les codes postaux dont la première partie contient uniquement des lettres, telles que «1513 4th St NW, Washington, DC 20001».
Articles relatifs:
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!
