如何在 Excel 中將 9 位數郵遞區號轉換為 5 位數？

---

使用公式將 9 位數郵遞區號轉換為 5 位數郵遞區號

當您在 Excel 中只需保留 9 位數郵遞區號的前 5 碼（特別是當郵遞區號顯示為純數字字串或格式為「12345-6789」時），公式能提供簡便又高效的解決方案。

說明：LEFT 公式會提取儲存格值的前 5 位數字。無論郵遞區號顯示為「12345-6789」或純 9 位數字字串，只要您需要的是前 5 位數字，此方法皆適用。
適用情境：此方法適用於所有郵遞區號皆以正確的前導基礎碼開頭，且無需驗證其格式的情況。

在空白儲存格（例如 B2）中輸入下列公式：

按下 Enter 確認後，向下拖曳填滿控點，即可將公式套用至清單的其餘部分。每個儲存格將僅顯示對應郵遞區號的前五碼。

提示：若您的郵遞區號可能包含空格或其他分隔符，或格式不一致，請先檢查是否含有非標準格式字元，並考慮在提取前使用 TRIM 或 SUBSTITUTE 函數清理資料。

注意：若遇到錯誤或非預期結果，請檢查原始儲存格是否少於 5 位數字、是否含有多餘空格，或是否設定為文字格式而非數字格式。這些問題可能影響公式輸出結果。

---

---

使用實用功能將 9 位數郵遞區號轉換為 5 位數郵遞區號

若您已安裝 Kutools for Excel，可利用其刪除某位置字元功能，輕鬆將 9 位數郵遞區號快速縮短為 5 位數！此方法無需輸入公式或擔心單元格格式，是處理大量清單的絕佳選擇。

安裝 Kutools for Excel 後，請依下列步驟操作：

2. 將郵遞區號儲存格格式設定為文字：選取您的清單，前往開始頁面，並從數字格式下拉式選單中選擇文字，即可防止 Excel 移除前導零！

3. 點選 Kutools＞ 文字＞ 刪除某位置字元：

5. 在刪除某位置字元對話方塊中，於數字方塊輸入 5，在位置下選取從右側（從右側移除 5 個字元即可保留前 5 位數字），然後按一下確定。您的郵遞區號將立即縮短為 12345：

提示：請務必確認您的郵遞區號長度一致，且不含非預期字元或分隔符號。若郵遞區號格式混雜，請仔細評估批次作業可能造成的影響。

立即點擊下載 Kutools for Excel，免費試用！

---

使用「文字分列」將 9 位數郵遞區號轉換為 5 位數郵遞區號

若您的郵遞區號採用標準格式並以連字號分隔（例如「12345-6789」），Excel 的文字分列功能可快速精準地將其拆分！此方法會把 9 碼郵遞區號自動分成兩欄，讓您輕鬆保留前 5 碼數字。

適用情境：最適合用於郵遞區號一律以連字號作為分隔符的清單，且您希望保留主要代碼用於寄送或記錄。

1. 選取包含 9 碼郵遞區號的欄位。

2. 前往資料索引標籤，然後點選文字分列，即可開啟設定精靈。

3. 選取分隔符號，然後點擊下一步。

4. 在分隔符號下，勾選其他，並輸入連字號-作為分隔符，然後點擊下一步。

5. 如有需要，請先指定目標儲存格，再點選完成，您的郵遞區號將被拆分，前五碼會保留在第一欄。

提示：拆分後，您可以刪除或忽略第二欄中包含郵遞區號延伸部分的內容。

注意：若郵遞區號未使用連字號或格式不符，此方法可能無法適用。請務必將您的資料標準化，或考慮採用本文中的其他方法。

---

使用 VBA 巨集將 9 位數郵遞區號轉換為 5 位數郵遞區號

針對自動化批量處理（特別是在處理大型試算表或重複性任務時），您可以運用 VBA 巨集，將選取區域內的所有郵遞區號自動修剪為前 5 碼。若您的資料格式不一致、包含前導零，或希望無需依賴公式與手動操作即可完成批次轉換，此方法尤其實用。

適用情境：適合進階使用者，或經常處理格式多變的長清單。只需選取相關範圍，巨集即可自動統一郵遞區號為指定長度！

1. 開啟 Excel，然後按一下開發人員工具 > Visual Basic。在 Microsoft Visual Basic for Applications 視窗中，選取插入 > 模組。

2. 將下列程式碼貼上至模組區域：

Sub TrimZipCodesToFiveDigits()
    Dim WorkRng As Range
    Dim Rng As Range
    Dim xTitleId As String
    Dim zipValue As String
    
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    
    Set WorkRng = Application.Selection
    Set WorkRng = Application.InputBox("Select Zip Code Range", xTitleId, WorkRng.Address, Type:=8)
    
    For Each Rng In WorkRng
        zipValue = Rng.Value
        If Len(zipValue) >= 5 Then
            Rng.Value = Left(zipValue, 5)
        End If
    Next
End Sub

3. 在 VBA 視窗中，點擊執行按鈕以執行程式碼，系統將立即顯示對話方塊，供您選取郵遞區號範圍。確認後，所選儲存格中的郵遞區號將自動縮短為前 5 位數字！

提示與注意事項：執行巨集前，請務必先備份資料，以防意外遺失。若郵遞區號含有特殊字元或格式不一致，請確認輸出結果符合您的預期。

疑難排解：若巨集出現錯誤，請確認目標範圍內不含受保護的工作表、合併儲存格或非數值資料。您可調整程式碼以妥善處理這些狀況，或事先清理資料，確保執行順暢！

---

更多相關的郵遞區號文章：