Jak extrahovat PSČ ze seznamu adres v aplikaci Excel?
K dispozici je seznam úplných adres včetně poštovních směrovacích čísel vašich zákazníků v aplikaci Excel a nyní chcete z těchto adres extrahovat pouze poštovní směrovací čísla, máte nějaký lepší způsob, než je extrahovat jeden po druhém? Zde vám řeknu rychlé způsoby, jak hromadně extrahovat více PSČ pouze v aplikaci Excel.
Extrahujte PSČ pomocí vzorce v aplikaci Excel
Extrahujte PSČ pomocí VBA v aplikaci Excel
Extrahujte PSČ pomocí vzorce v aplikaci Excel
Ve většině případů PSČ nesmí být delší než 8 znaků.
Vyberte prázdnou buňku a zadejte tento vzorec =MID(A1,FIND("zzz",SUBSTITUTE(A1," ","zzz",SUMPRODUCT(1*((MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))=" "))-1))+1,LEN(A1)) (A1 je buňka, ze které chcete extrahovat PSČ), stiskněte vstoupit tlačítko a vyplňte požadovaný rozsah přetažením úchytu. Nyní vidíte, že ze seznamu jsou extrahována pouze poštovní směrovací čísla.
Extrahujte PSČ pomocí VBA v aplikaci Excel
Existuje VBA, který dokáže v aplikaci Excel rychle extrahovat poštovní směrovací čísla z úplných adres.
1. Vyberte buňku sloupce, který chcete vybrat, a stiskněte Alt + F11 otevřete Microsoft Visual Basic pro aplikace okno.
2. Ve vyskakovacím okně klikněte na Vložit > Modul, pak vložte následující kód VBA do modulu.
VBA: Extrahujte pouze PSČ
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 Sub3. Pak klikněte na tlačítko Běh a vyberte rozsah, ze kterého chcete extrahovat pouze PSČ. Viz screenshot:
4. cvaknutí OK, můžete vidět pouze PSČ, která jsou v rozsahu vyhrazena.
Poznámka:
(1) Spuštěním výše uvedeného VBA se změní vaše původní data, raději je nejprve zkopírujte a uložte.
(2) Toto makro VBA není schopno extrahovat poštovní směrovací čísla, jejichž první část obsahuje pouze písmena, například „1513 4th St NW, Washington, DC 20001“.
Relativní články:
- Extrahujte iniciály ze jmen v aplikaci Excel
- Extrahujte desetinnou hodnotu z řetězce v aplikaci Excel
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
