Hogyan lehet kibontani az irányítószámot az Excel címlistájából?

Van egy lista a teljes címekről, beleértve az ügyfelek irányítószámait az Excel programban, és most csak az irányítószámokat szeretné kibontani ezekből a címekből. Van valami jobb módja, mint egyesével kibontani? Itt elmondom, hogyan lehet egyszerre több irányítószámot egyszerre csak az Excelben kibontani.

Kivonat irányítószámot képlettel az Excelben

Bontsa ki az irányítószámot a VBA segítségével az Excelben

Kivonat irányítószámot képlettel az Excelben

Az esetek többségében az irányítószám legfeljebb 8 karakterből állhat.

Válasszon egy üres cellát, és írja be ezt a képletet =MID(A1,FIND("zzz",SUBSTITUTE(A1," ","zzz",SUMPRODUCT(1*((MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))=" "))-1))+1,LEN(A1)) (A1 az a cella, amelyből az irányítószámot ki akarja vonni), nyomja meg a gombot belép gombra, és a kitöltő fogantyú elhúzásával töltse ki a kívánt tartományt. Most láthatja, hogy csak az irányítószámokat vonják ki a listából.

Bontsa ki az irányítószámot a VBA segítségével az Excelben

Van egy VBA, amely az Excel-ben gyorsan képes kibontani az irányítószámokat a teljes címekből.

1. Jelölje ki a kiválasztani kívánt oszlop celláját, majd nyomja meg az gombot Alt + F11 megnyitásakor Microsoft Visual Basic for Applications ablak.

2. Az előugró ablakban kattintson a gombra betétlap > Modulok, majd illessze be a következő VBA kódot a modulba.

VBA: Csak az irányítószámokat vonja ki

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. Ezután kattintson futás gombot, és válassza ki azt a tartományt, amelyből csak az irányítószámokat szeretné kibontani. Lásd a képernyőképet:

4. kettyenés OK, akkor láthatja, hogy a tartományban csak az irányítószámok vannak fenntartva.

Jegyzet:

(1) A fenti VBA futtatása megváltoztatja az eredeti adatait, jobb, ha először másolja és menti őket.

(2) Ez a VBA makró nem képes kibontani azokat az irányítószámokat, amelyek első része csak betűket tartalmaz, például: „1513 4th St NW, Washington, DC 20001”.

Relatív cikkek:

• Bontsa ki a kezdőbetűket az Excel nevéből
• Bontsa ki a decimális értéket az Excel karakterláncából