Bagaimana cara mengekstrak kode pos dari daftar alamat di Excel?
Ada daftar alamat lengkap termasuk kode pos pelanggan Anda di Excel, dan sekarang Anda hanya ingin mengekstrak kode pos dari alamat ini, apakah Anda memiliki cara yang lebih baik daripada mengekstraknya satu per satu? Di sini, saya memberi tahu Anda cara cepat untuk mengekstrak banyak kode pos secara massal hanya pada satu waktu di Excel.
Ekstrak kode pos dengan rumus di Excel
Ekstrak kode pos dengan VBA di Excel
Ekstrak kode pos dengan rumus di Excel
Dalam kebanyakan kasus, kode pos tidak lebih dari 8 karakter.
Pilih sel kosong dan ketikkan rumus ini =MID(A1,FIND("zzz",SUBSTITUTE(A1," ","zzz",SUMPRODUCT(1*((MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))=" "))-1))+1,LEN(A1)) (A1 adalah sel yang ingin Anda ekstrak kode posnya), tekan Enter dan isi rentang yang Anda inginkan dengan menyeret gagang isian. Sekarang Anda hanya dapat melihat kode pos yang diekstrak dari daftar.
Ekstrak kode pos dengan VBA di Excel
Ada VBA yang dapat mengekstrak kode pos dari alamat lengkap dengan cepat di Excel.
1. Pilih sel kolom yang ingin Anda pilih dan tekan Alt + F11 untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Di jendela pop-up, klik Menyisipkan > Modul, lalu tempel kode VBA berikut ke dalam modul.
VBA: Ekstrak kode pos saja
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. Lalu klik Run dan pilih rentang yang kode posnya ingin Anda ekstrak. Lihat tangkapan layar:
4. klik OK, Anda hanya dapat melihat kode pos yang dicadangkan dalam rentang tersebut.
Catatan:
(1) Menjalankan VBA di atas akan mengubah data asli Anda, sebaiknya Anda menyalin dan menyimpannya terlebih dahulu.
(2) Makro VBA ini tidak dapat mengekstrak kode pos yang bagian pertamanya hanya berisi huruf, seperti "1513 4th St NW, Washington, DC 20001".
Artikel Relatif:
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah
- Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
- Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!
