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:
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca
- Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
- Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
- Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!