Tách số nhà, đường, ấp, xã. huyện, tỉnh

Liên hệ QC

nnt32002

Thành viên hoạt động
Tham gia
10/8/07
Bài viết
165
Được thích
21
Mình muốn tách rời số nhà đường, ấp, xã, huyện, tỉnh theo file đính kèm.
Xin các bạn giúp đỡ. Cảm ơn.
 

File đính kèm

  • Book1.xls
    10.5 KB · Đọc: 54
Mình muốn tách rời số nhà đường, ấp, xã, huyện, tỉnh theo file đính kèm.
Xin các bạn giúp đỡ. Cảm ơn.
Tức bạn muốn tách từ địa chỉ ban đầu ở cột A để đươck các kết quả ở các cột C, D, E, F, G đúng không? Tách bằng công thức hay VBA?
 
Xin được tách bằng công thức.
 
Xin được tách bằng công thức.
Công thức thì hơi khó(với tôi), nếu bạn biết dùng tính năng Text to columns thì có thể làm bài này rất nhanh. Tôi hơi thắc mắc 1 chút về dữ liệu của bạn. Sao lúc thì ngăn cách bởi dấu phảy, lúc thì là dấu "-", không đồng nhất gì cả.
Tôi làm bằng VBA, trong đoạn code này tôi thực hiện 2 việc:
+ Một là, đồng nhất dữ liệu ban đầu(đưa hết dữ liệu về thành kiểu ngăn cách nhau bởi dấu phẩy).
+ Hai là, tách chuỗi.
Để sử dụng bạn bấm nút "TÁCH" trong sheet. Nhớ Enable Macros trước khi mở File!
 

File đính kèm

  • TachDiaChi.xls
    26 KB · Đọc: 131
Lần chỉnh sửa cuối:
Tôi dự trù cho nhiều người sử dụng nên có nhiều dạng nhập liệu khác nhau, phần tách ra là để mình xử lý số liệu để tổng hợp và lập nhiều loại báo cáo khác nhau.
Cảm ơn bạn nhiều, nhưng được bằng công thức thì tốt nhất.
 
Tôi dự trù cho nhiều người sử dụng nên có nhiều dạng nhập liệu khác nhau, phần tách ra là để mình xử lý số liệu để tổng hợp và lập nhiều loại báo cáo khác nhau.
Cảm ơn bạn nhiều, nhưng được bằng công thức thì tốt nhất.
Tại sao bằng công thức lại tôt nhất? Bạn không biết sử dụng VBA à? Trong khi dữ liệu của bạn lại không đồng nhất? Bạn chạy thử code tôi viết chưa? Kết quả ra sao?
 
Code này tôi bổ sung thêm phần định dạng lại kết quả sau khi tách.(Xóa khoảng trắng thừa của chuỗi)
 

File đính kèm

  • TachDiaChi.rar
    8.6 KB · Đọc: 79
Tôi không sử dụng Microsoft office mà dùng Kingsoft office nên nó đâu hiểu VBA, nhưng dùng hàm và công thức thì được hết.
Cảm ơn bạn nhiều.
 
Web KT
Back
Top Bottom