Conas cód poist a bhaint as an liosta seoltaí in Excel?

Tá liosta de na seoltaí iomlána lena n-áirítear cóid poist de do chustaiméirí in Excel, agus anois nach dteastaíonn uait ach na cóid zip a bhaint as na seoltaí seo, an bhfuil aon bhealach níos fearr agat ná iad a bhaint ceann ar cheann? Anseo, deirim leat na bealaí gasta chun ilchóid zip a bhaint as mais ag Excel ag an am.

Sliocht cód poist le foirmle in Excel

Sliocht postchód le VBA in Excel

Sliocht cód poist le foirmle in Excel

I bhformhór na gcásanna, an cód poist nach faide ná 8 gcarachtar.

Roghnaigh cill bhán agus clóscríobh an fhoirmle seo =MID(A1,FIND("zzz",SUBSTITUTE(A1," ","zzz",SUMPRODUCT(1*((MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))=" "))-1))+1,LEN(A1)) (Is é A1 an cill ar mhaith leat cód poist a bhaint as), brúigh Iontráil cnaipe agus líon an raon atá uait tríd an láimhseáil líonta a tharraingt. Anois is féidir leat a fheiceáil nach mbaintear ach cóid poist ón liosta.

Sliocht postchód le VBA in Excel

Tá VBA ann atá in ann cóid poist a bhaint as seoltaí iomlána go tapa in Excel.

1. Roghnaigh cill den cholún is mian leat a roghnú agus brúigh Alt + F11 chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Sa fhuinneog aníos, cliceáil Ionsáigh > Modúil, ansin greamaigh an cód VBA seo a leanas sa mhodúl.

VBA: Sliocht cóid zip amháin

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. Ansin cliceáil Rith cnaipe agus roghnaigh an raon is mian leat cóid zip a bhaint as. Féach an pictiúr:

4. cliceáil OK, is féidir leat a fheiceáil nach bhfuil ach na cóid zip in áirithe sa raon.

Nóta:

(1) Má ritheann tú an VBA thuas, athróidh sé do chuid sonraí bunaidh, b’fhearr duit iad a chóipeáil agus a shábháil ar dtús.

(2) Níl an macra VBA seo in ann na cóid zip a bhaint nach bhfuil iontu ach litreacha sa chéad chuid díobh, mar shampla “1513 4th St NW, Washington, DC 20001”.

Ailt Choibhneasta:

• Sliocht ceannlitreacha ó ainmneacha in Excel
• Sliocht luach deachúil as sreang in Excel