Excel'de adres listesinden posta kodu nasıl çıkarılır?
Excel'de müşterilerinizin posta kodlarını içeren tam adreslerin bir listesi var ve şimdi bu adreslerden yalnızca posta kodlarını çıkarmak istiyorsunuz, bunları tek tek çıkarmaktan daha iyi bir yolunuz var mı? Burada, yalnızca Excel'de bir seferde birden çok posta kodunu toplu olarak çıkarmanın hızlı yollarını anlatıyorum.
Excel'deki formülle posta kodunu çıkarın
Excel'de VBA ile posta kodunu ayıklayın
Excel'deki formülle posta kodunu çıkarın
Çoğu durumda, posta kodu 8 karakterden uzun değildir.
Boş bir hücre seçin ve bu formülü yazın =MID(A1,FIND("zzz",SUBSTITUTE(A1," ","zzz",SUMPRODUCT(1*((MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))=" "))-1))+1,LEN(A1)) (A1, posta kodunu çıkarmak istediğiniz hücredir), tuşuna basın Keşfet düğmesine tıklayın ve doldurma tutamacını sürükleyerek istediğiniz aralığı doldurun. Artık listeden yalnızca posta kodlarının çıkarıldığını görebilirsiniz.
Excel'de VBA ile posta kodunu ayıklayın
Excel'de posta kodlarını tam adreslerden hızlı bir şekilde çıkarabilen bir VBA vardır.
1. Seçmek istediğiniz sütunun bir hücresini seçin ve Alt + F11 açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. Açılan pencerede, Ekle > modül, ardından aşağıdaki VBA kodunu modüle yapıştırın.
VBA: Yalnızca posta kodlarını çıkarın
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. Sonra tıklayın koşmak düğmesini tıklayın ve yalnızca posta kodlarını çıkarmak istediğiniz aralığı seçin. Ekran görüntüsüne bakın:
4. tık OK, aralıkta yalnızca posta kodlarının ayrıldığını görebilirsiniz.
Not:
(1) Yukarıdaki VBA'yı çalıştırmak orijinal verilerinizi değiştirecektir, öncelikle bunları kopyalayıp kaydetmeniz daha iyi olur.
(2) Bu VBA makrosu, "1513 4th St NW, Washington, DC 20001" gibi, ilk bölümü yalnızca harf içeren posta kodlarını çıkaramaz.
İlgili Makaleler:
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
