如何從Excel中的地址列表中提取郵政編碼？

在Excel中有完整的地址列表，包括客戶的郵政編碼，現在您只想從這些地址中提取郵政編碼，您有什麼比逐個提取郵政編碼更好的方法了？ 在這裡，我告訴您僅一次在Excel中批量提取多個郵政編碼的快速方法。

在Excel中使用公式提取郵政編碼

在Excel中使用VBA提取郵政編碼

在Excel中使用公式提取郵政編碼

在大多數情況下，郵政編碼不得超過8個字符。

選擇一個空白單元格並鍵入此公式 =MID(A1,FIND("zzz",SUBSTITUTE(A1," ","zzz",SUMPRODUCT(1*((MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))=" "))-1))+1,LEN(A1)) （A1是要從中提取郵政編碼的單元格），按 Enter 按鈕並通過拖動填充手柄填充所需的範圍。 現在，您只能看到從列表中提取的郵政編碼。

在Excel中使用VBA提取郵政編碼

有一個VBA可以在Excel中快速從完整地址中提取郵政編碼。

1.選擇要選擇的列的單元格，然後按 Alt + F1鍵1打開 Microsoft Visual Basic for Applications 窗口。

2.在彈出窗口中，單擊 插入 > 模塊，然後將以下VBA代碼粘貼到模塊中。

VBA：僅提取郵政編碼

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。 然後點擊 運行 按鈕，然後選擇您要僅提取郵政編碼的範圍。 看截圖：

4。 點擊 OK，您將看到該範圍中僅保留了郵政編碼。

注意：

（1）運行上述VBA會更改您的原始數據，您最好首先複製並保存它們。

（2）此VBA宏無法提取僅包含字母的郵政編碼，例如“華盛頓特區華盛頓特區1513 4th St NW”。

相關文章：

• 從Excel中的名稱中提取姓名縮寫
• 從Excel中的字符串中提取十進制值