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 Sub

3. 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:

• Extraire les initiales des noms dans Excel
• Extraire la valeur décimale de la chaîne dans Excel