Kako izvleči poštno številko s seznama naslovov v Excelu?
Obstaja seznam polnih naslovov, vključno s poštnimi številkami vaših strank v Excelu, zdaj pa želite iz teh naslovov izluščiti samo poštne številke, ali imate kakšen boljši način kot njihovo eno za drugim? Tukaj vam predstavljam hitre načine masovnega pridobivanja več poštnih številk samo v Excelu hkrati.
Izvlecite poštno številko s formulo v Excelu
Izvlecite poštno številko z VBA v Excelu
Izvlecite poštno številko s formulo v Excelu
V večini primerov poštna številka ni daljša od 8 znakov.
Izberite prazno celico in vnesite to formulo =MID(A1,FIND("zzz",SUBSTITUTE(A1," ","zzz",SUMPRODUCT(1*((MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))=" "))-1))+1,LEN(A1)) (A1 je celica, iz katere želite izvleči poštno številko), pritisnite Vnesite in izpolnite želeni obseg tako, da povlečete ročico za polnjenje. Zdaj lahko vidite, da so s seznama izvlečene le poštne številke.
Izvlecite poštno številko z VBA v Excelu
Obstaja VBA, ki lahko v Excelu hitro izvleče poštne številke iz celotnih naslovov.
1. Izberite celico stolpca, ki jo želite izbrati, in pritisnite Alt + F11, da odprete Microsoft Visual Basic za aplikacije okno.
2. V pojavnem oknu kliknite Vstavi > Moduli, nato v modul prilepite naslednjo kodo VBA.
VBA: Izvlecite samo poštne številke
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. Nato kliknite Run in izberite obseg, iz katerega želite samo črpati poštne številke. Oglejte si posnetek zaslona:
4. klik OK, lahko vidite, da so v območju le rezervirane poštne številke.
Opomba:
(1) Zagon zgornjega VBA bo spremenil vaše prvotne podatke, raje jih najprej kopirajte in shranite.
(2) Ta makro VBA ne more izluščiti poštnih številk, katerih prvi del vsebuje samo črke, na primer »1513 4th St NW, Washington, DC 20001«.
Relativni članki:
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!