si potrebbe ricorrere ad un codice VBA con una RegExp (Espressione Regolare)  bisogna capire a che livello è Pinil con VBA 🙂   comunque posto il codice gli indirizzi completi sono nella nelle celle della colonna "A"

Private Sub cercaCAP()
    Dim strPattern As String: strPattern = "[0-9]{5}"
    Dim strReplace As String: strReplace = ""
    Dim strInput As String
    Dim Myrange As Range
 Set regEx = CreateObject("vbscript.regexp")
    Set Myrange = ActiveSheet.Range("A1:A5")
    For Each cell In Myrange
        If strPattern <> "" Then
            strInput = cell.Value

            With regEx
                .Global = True
                .MultiLine = True
                .IgnoreCase = False
                .Pattern = strPattern
            End With
            Set matches = regEx.Execute(strInput)
            s = ""
            For Each Match In matches
                cell.Offset(0, 1) = Match.Value
            Next
        End If
    Next
End Sub