Hướng dẫn how do i separate address and postcode in excel? - làm cách nào để tách địa chỉ và mã bưu điện trong excel?

Có một danh sách các địa chỉ đầy đủ bao gồm mã bưu điện của khách hàng của bạn ở Excel và bây giờ bạn chỉ muốn trích xuất các mã zip từ các địa chỉ này, bạn có cách nào tốt hơn là trích xuất từng cái một không? Ở đây, tôi nói với bạn những cách nhanh chóng để trích xuất khối lượng nhiều mã zip chỉ tại một thời điểm trong Excel.

Trích xuất mã bưu điện với công thức trong Excel

Trích xuất mã bưu điện với VBA trong Excel

Tab Office Kích hoạt chỉnh sửa và duyệt tab trong văn phòng và làm cho công việc của bạn dễ dàng hơn nhiều ...

Kutools cho Excel giải quyết hầu hết các vấn đề của bạn và tăng năng suất của bạn lên 80%

• Tái sử dụng bất cứ điều gì: Thêm các công thức, biểu đồ được sử dụng hoặc phức tạp nhất và bất cứ điều gì khác vào mục yêu thích của bạn, và nhanh chóng sử dụng lại chúng trong tương lai. Add the most used or complex formulas, charts and anything else to your favorites, and quickly reuse them in the future.
• Hơn 20 tính năng văn bản: Trích xuất số từ chuỗi văn bản; Trích xuất hoặc loại bỏ một phần của văn bản; Chuyển đổi số và tiền tệ thành từ tiếng Anh. Extract Number from Text String; Extract or Remove Part of Texts; Convert Numbers and Currencies to English Words.
• Công cụ hợp nhất: Nhiều sổ làm việc và tờ thành một; Hợp nhất nhiều ô/hàng/cột mà không mất dữ liệu; Hợp nhất các hàng trùng lặp và tổng.: Multiple Workbooks and Sheets into One; Merge Multiple Cells/Rows/Columns Without Losing Data; Merge Duplicate Rows and Sum.
• Công cụ phân chia: Chia dữ liệu thành nhiều bảng dựa trên giá trị; Một sổ làm việc cho nhiều tệp Excel, PDF hoặc CSV; Một cột đến nhiều cột.: Split Data into Multiple Sheets Based on Value; One Workbook to Multiple Excel, PDF or CSV Files; One Column to Multiple Columns.
• Dán các hàng ẩn/lọc; Đếm và tổng hợp màu nền; Gửi email được cá nhân hóa cho nhiều người nhận với số lượng lớn. Hidden/Filtered Rows; Count And Sum by Background Color; Send Personalized Emails to Multiple Recipients in Bulk.
• Super Filter: Tạo các sơ đồ bộ lọc nâng cao và áp dụng cho bất kỳ bảng nào; Sắp xếp theo tuần, ngày, tần suất và nhiều hơn nữa; Lọc theo in đậm, công thức, bình luận ... Create advanced filter schemes and apply to any sheets; Sort by week, day, frequency and more; Filter by bold, formulas, comment...
• Hơn 300 tính năng mạnh mẽ; Làm việc với Office 2007-2019 và 365; Hỗ trợ tất cả các ngôn ngữ; Dễ dàng triển khai trong doanh nghiệp hoặc tổ chức của bạn.Works with Office 2007-2019 and 365; Supports all languages; Easy deploying in your enterprise or organization.

Trích xuất mã bưu điện với công thức trong Excel

Trong hầu hết các trường hợp, mã bưu điện không dài hơn 8 ký tự.

Chọn một ô trống và nhập công thức này = mid [a1, find ["zzz", thay thế [a1, "" A1]]], 1]] = ""]]-1]]+1, len [a1]] [a1 là ô bạn muốn trích xuất mã postcod Điền vào tay cầm. Bây giờ bạn chỉ có thể thấy mã bưu điện được trích xuất từ ​​danh sách.=MID[A1,FIND["zzz",SUBSTITUTE[A1," ","zzz",SUMPRODUCT[1*[[MID[A1,ROW[INDIRECT["1:"&LEN[A1]]],1]]=" "]]-1]]+1,LEN[A1]] [A1 is the cell you want to extract postcode from], press Enter button and fill the range you want by dragging the fill handle. Now you can see only postcodes are extracted from the list.

Trích xuất mã bưu điện với VBA trong Excel

Có một VBA có thể trích xuất mã bưu điện từ địa chỉ đầy đủ nhanh chóng trong Excel.

1. Chọn một ô của cột bạn muốn chọn và nhấn Alt + F11 để mở cửa sổ Microsoft Visual Basic cho các ứng dụng.Alt + F11 to open the Microsoft Visual Basic for Applications window.

2. Trong cửa sổ bật lên, nhấp vào Chèn> Mô-đun, sau đó dán mã VBA sau vào mô-đun.Insert > Module, then paste the following VBA code into the module.

VBA: Chỉ trích xuất mã zip

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. Sau đó nhấp vào nút chạy và chọn phạm vi bạn muốn trích xuất mã zip. Xem ảnh chụp màn hình:Run button and select the range you want to extract zip codes only from. See screenshot:

4. Nhấp vào OK, bạn có thể thấy các mã zip duy nhất được dành riêng trong phạm vi.OK, you can see the only the zip codes are reserved in the range.

Note:

[1] Chạy VBA ở trên sẽ thay đổi dữ liệu gốc của bạn, bạn nên sao chép và lưu chúng trước tiên.

.

Bài viết tương đối:

• Trích xuất tên viết tắt từ tên trong Excel
• Trích xuất giá trị thập phân từ chuỗi trong Excel

Các công cụ năng suất văn phòng tốt nhất

Kutools cho Excel giải quyết hầu hết các vấn đề của bạn và tăng năng suất của bạn lên 80%

• Tái sử dụng bất cứ điều gì: Thêm các công thức, biểu đồ được sử dụng hoặc phức tạp nhất và bất cứ điều gì khác vào mục yêu thích của bạn, và nhanh chóng sử dụng lại chúng trong tương lai.: Quickly insert complex formulas, charts and anything that you have used before; Encrypt Cells with password; Create Mailing List and send emails...
• Hơn 20 tính năng văn bản: Trích xuất số từ chuỗi văn bản; Trích xuất hoặc loại bỏ một phần của văn bản; Chuyển đổi số và tiền tệ thành từ tiếng Anh. [easily edit multiple lines of text and formula]; Reading Layout [easily read and edit large numbers of cells]; Paste to Filtered Range...
• Công cụ hợp nhất: Nhiều sổ làm việc và tờ thành một; Hợp nhất nhiều ô/hàng/cột mà không mất dữ liệu; Hợp nhất các hàng trùng lặp và tổng. without losing Data; Split Cells Content; Combine Duplicate Rows/Columns... Prevent Duplicate Cells; Compare Ranges...
• Công cụ phân chia: Chia dữ liệu thành nhiều bảng dựa trên giá trị; Một sổ làm việc cho nhiều tệp Excel, PDF hoặc CSV; Một cột đến nhiều cột. Rows; Select Blank Rows [all cells are empty]; Super Find and Fuzzy Find in Many Workbooks; Random Select...
• Dán các hàng ẩn/lọc; Đếm và tổng hợp màu nền; Gửi email được cá nhân hóa cho nhiều người nhận với số lượng lớn. Multiple Cells without changing formula reference; Auto Create References to Multiple Sheets; Insert Bullets, Check Boxes and more...
• Super Filter: Tạo các sơ đồ bộ lọc nâng cao và áp dụng cho bất kỳ bảng nào; Sắp xếp theo tuần, ngày, tần suất và nhiều hơn nữa; Lọc theo in đậm, công thức, bình luận ..., Add Text, Remove by Position, Remove Space; Create and Print Paging Subtotals; Convert Between Cells Content and Comments...
• Hơn 300 tính năng mạnh mẽ; Làm việc với Office 2007-2019 và 365; Hỗ trợ tất cả các ngôn ngữ; Dễ dàng triển khai trong doanh nghiệp hoặc tổ chức của bạn. [save and apply filter schemes to other sheets]; Advanced Sort by month/week/day, frequency and more; Special Filter by bold, italic...
• Trích xuất mã bưu điện với công thức trong Excel; Merge Tables based on key columns; Split Data into Multiple Sheets; Batch Convert xls, xlsx and PDF...
• Trong hầu hết các trường hợp, mã bưu điện không dài hơn 8 ký tự.. Supports Office/Excel 2007-2019 and 365. Supports all languages. Easy deploying in your enterprise or organization. Full features 30-day free trial. 60-day money back guarantee.

Chọn một ô trống và nhập công thức này = mid [a1, find ["zzz", thay thế [a1, "" A1]]], 1]] = ""]]-1]]+1, len [a1]] [a1 là ô bạn muốn trích xuất mã postcod Điền vào tay cầm. Bây giờ bạn chỉ có thể thấy mã bưu điện được trích xuất từ ​​danh sách.

• Trích xuất mã bưu điện với VBA trong Excel, Publisher, Access, Visio and Project.
• Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
• Tăng năng suất của bạn lên 50%và giảm hàng trăm lần nhấp chuột cho bạn mỗi ngày!