跳到主要內容

如何從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”。


相關文章:

最佳辦公生產力工具

熱門特色: 尋找、突出顯示或識別重複項   |  刪除空白行   |  合併列或儲存格而不遺失數據   |   沒有公式的回合 ...
超級查詢: 多條件VLookup    多值VLookup  |   跨多個工作表的 VLookup   |   模糊查詢 ....
高級下拉列表: 快速建立下拉列表   |  依賴下拉列表   |  多選下拉列表 ....
欄目經理: 新增特定數量的列  |  移動列  |  切換隱藏列的可見性狀態  |  比較範圍和列 ...
特色功能: 網格焦點   |  設計圖   |   大方程式酒吧    工作簿和工作表管理器   |  資源庫 (自動文字)   |  日期選擇器   |  合併工作表   |  加密/解密單元格    按清單發送電子郵件   |  超級濾鏡   |   特殊過濾器 (過濾粗體/斜體/刪除線...)...
前 15 個工具集12 文本 工具 (添加文本, 刪除字符,...)   |   50+ 圖表 類型 (甘特圖,...)   |   40+ 實用 公式 (根據生日計算年齡,...)   |   19 插入 工具 (插入二維碼, 從路徑插入圖片,...)   |   12 轉化 工具 (數字到單詞, 貨幣兌換,...)   |   7 合併與拆分 工具 (高級合併行, 分裂細胞,...)   |   ... 和更多

使用 Kutools for Excel 增強您的 Excel 技能,體驗前所未有的效率。 Kutools for Excel 提供了 300 多種進階功能來提高生產力並節省時間。  點擊此處獲取您最需要的功能...

kte選項卡201905


Office選項卡為Office帶來了選項卡式界面,使您的工作更加輕鬆

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations