Jak wyodrębnić kod pocztowy z listy adresów w programie Excel?
W programie Excel znajduje się lista pełnych adresów, w tym kody pocztowe klientów, a teraz chcesz wyodrębnić tylko kody pocztowe z tych adresów, czy masz lepszy sposób niż wyodrębnianie ich jeden po drugim? Tutaj powiem ci szybkie sposoby masowego wyodrębniania wielu kodów pocztowych tylko w Excelu.
Wyodrębnij kod pocztowy z formułą w programie Excel
Wyodrębnij kod pocztowy za pomocą VBA w programie Excel
Wyodrębnij kod pocztowy z formułą w programie Excel
W większości przypadków kod pocztowy nie może być dłuższy niż 8 znaków.
Wybierz pustą komórkę i wpisz tę formułę =MID(A1,FIND("zzz",SUBSTITUTE(A1," ","zzz",SUMPRODUCT(1*((MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))=" "))-1))+1,LEN(A1)) (A1 to komórka, z której chcesz wyodrębnić kod pocztowy), naciśnij Wchodzę i wypełnij żądany zakres, przeciągając uchwyt wypełnienia. Teraz możesz zobaczyć, że tylko kody pocztowe są wyodrębniane z listy.
Wyodrębnij kod pocztowy za pomocą VBA w programie Excel
Istnieje VBA, który może szybko wyodrębnić kody pocztowe z pełnych adresów w programie Excel.
1. Wybierz komórkę kolumny, którą chcesz zaznaczyć i naciśnij Alt + F11, aby otworzyć Microsoft Visual Basic for Applications okno.
2. W wyskakującym okienku kliknij wstawka > Moduł, a następnie wklej następujący kod VBA do modułu.
VBA: wyodrębnij tylko kody pocztowe
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. Następnie kliknij run i wybierz zakres, z którego chcesz wyodrębnić tylko kody pocztowe. Zobacz zrzut ekranu:
4. kliknij OK, widać, że jedyne kody pocztowe są zarezerwowane w zakresie.
Uwaga:
(1) Uruchomienie powyższego VBA zmieni oryginalne dane, lepiej najpierw je skopiować i zapisać.
(2) To makro VBA nie jest w stanie wyodrębnić kodów pocztowych, których pierwsza część zawiera tylko litery, na przykład „1513 4th St NW, Washington, DC 20001”.
Względne artykuły:
- Wyodrębnij inicjały z nazw w programie Excel
- Wyodrębnij wartość dziesiętną z ciągu w programie Excel
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
