Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako izpisati poštno številko s seznama naslovov v Excelu?

Obstaja seznam polnih naslovov, vključno z poštnimi številkami vaših strank v Excelu, in zdaj želite izvleči samo poštne kode iz teh naslovov, ali imate kakšen boljši način, kot je, da jih izvlečete eno za drugim? Tukaj vam povem, kako hitro lahko množično kopirate več poštnih kod samo v Excelu.

Izvleček poštne številke s formulo v Excelu

Izvleček poštne številke s VBA v Excelu


puščica modra desno mehurček Izvleček poštne številke s formulo v Excelu


V večini primerov poštna številka ne presega znakov 8.

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 dodati poštno številko), pritisnite Vnesite gumb in napolnite želeni obseg, tako da povlečete ročico za polnjenje. Zdaj lahko vidite, da so izpiski iz seznama izvlečeni samo.


puščica modra desno mehurček Izvleček poštne številke s VBA v Excelu

Obstaja VBA, ki lahko v Excelu hitro izvleče poštne številke iz polnih 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: samo zip kodo

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 gumb in izberite obseg, ki ga želite izpisati samo zip kod. Prikaz slike:

4. klik OK, si lahko ogledate samo, da so poštne številke rezervirane v dosegu.

Opomba:

(1) Z zagonom zgornjega VBA boste spremenili prvotne podatke, najprej jih boste najprej kopirali in shranili.

(2) Ta makro VBA ne more izvleči poštnih kod, katerih prvi del vsebuje samo črke, kot je "1513 4th St NW, Washington, DC 20001".


Relativni členi:


Priporočena orodja za produktivnost za Excel

zavihek kte 201905

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.