[Hỏi] Cách lấy tên quận huyện trong địa chỉ! (1 người xem)

[AlexViean]

Chào mọi người. Mình có 1 cột địa chỉ đầy đủ và một cột cần nhập tên quận huyện đã có trong cột địa chỉ kia. Mọi người có thể giúp mình tạo hàm được không? Ví dụ kết quả như hình đây:

​

Cảm ơn mọi người

 

[gtri]

Chắc là tạo hàm được thôi, có file đính kèm sẽ nhanh hơn vì không phải nhập dữ liệu

 

[AlexViean]

Vậy mình attach luôn file mình đang làm nhé?

 

[SA_DQ]

Mình triển khai í tưởng đây:

 

[hoamattroicoi]

Làm theo dữ liệu mẫu, :3 :3 :3

=TRIM(MID(TRIM(RIGHT(SUBSTITUTE(SUBSTITUTE(A2,", Thành Phố Hải Phòng",""),",",REPT(" ",LEN(A2))),LEN(A2))),6,100))

 

[gtri]

Vậy mình attach luôn file mình đang làm nhé?

Góp vui thêm công thức
A2=TRIM(RIGHT(SUBSTITUTE(SUBSTITUTE(A2,", Thành Phố Hải Phòng",""),IF(LEN(A2)-LEN(SUBSTITUTE(A2,"Quận",""))>0,"Quận","Huyện"),REPT(" ",100)),100))

 

[ndu96081631]

Góp vui thêm công thức
A2=TRIM(RIGHT(SUBSTITUTE(SUBSTITUTE(A2,", Thành Phố Hải Phòng","")," ",REPT(" ",50)),100))

Cái này sao mà được chứ! Với tên Quận có 3 từ ---> Kết quả sai

 

[gtri]

Cái này sao mà được chứ! Với tên Quận có 3 từ ---> Kết quả sai

OK, Làm xong mới nhận ra. Đã sửa lại cho chủ thớt.
Thank!
A2=TRIM(RIGHT(SUBSTITUTE(SUBSTITUTE(A2,", Thành Phố Hải Phòng",""),IF(LEN(A2)-LEN(SUBSTITUTE(A2,"Quận",""))>0,"Quận","Huyệ n"),REPT(" ",100)),100))

 

[ndu96081631]

OK, Làm xong mới nhận ra. Đã sửa lại cho chủ thớt.
Thank!
A2=TRIM(RIGHT(SUBSTITUTE(SUBSTITUTE(A2,", Thành Phố Hải Phòng",""),IF(LEN(A2)-LEN(SUBSTITUTE(A2,"Quận",""))>0,"Quận","Huyệ n"),REPT(" ",100)),100))

"Quận" và "Huyện" chỉ lệch nhau 1 ký tự. Vậy thôi làm như Bé Còi cho nó ngắn

 

[Phuocam]

Chào mọi người. Mình có 1 cột địa chỉ đầy đủ và một cột cần nhập tên quận huyện đã có trong cột địa chỉ kia. Mọi người có thể giúp mình tạo hàm được không? Ví dụ kết quả như hình đây:
​

Cảm ơn mọi người

Mình không rành VBA, mới tập làm thử, nhờ anh chị góp ý.

 

[ndu96081631]

Mình không rành VBA, mới tập làm thử, nhờ anh chị góp ý.

Giải thuật tốt!
Đoạn:
Tach = Mid(QH, InStr(QH, " ") + 1)
Có thể bắt chước bé Còi như vầy:
Tach = Trim(Mid(QH, 6))
Ẹc... Ẹc...

 

[gtri]

"Quận" và "Huyện" chỉ lệch nhau 1 ký tự. Vậy thôi làm như Bé Còi cho nó ngắn

Không hiểu sao dùng công thức bài 5 lại cho ra kết quả là "Thành phố Hải phòng"
-----------------
Dán lại ", Thành Phố Hải Phòng" từ A2 vào công thức thì ra kết quả còn lại "Quận..." hoặc "Huyện..."

 

[ndu96081631]

Không hiểu sao dùng công thức bài 5 lại cho ra kết quả là "Thành phố Hải phòng"
-----------------
Dán lại ", Thành Phố Hải Phòng" từ A2 vào công thức thì ra kết quả còn lại "Quận..." hoặc "Huyện..."

Tôi test trên máy tôi bình thường

 

[gtri]

Tôi test trên máy tôi bình thường

Nhờ NDU xem giùm file này, không biết lỗi chỗ nào mà kết quả vẫn còn "Quận..."
---
Công thức y như bài 5
---
Đã sửa được lỗi công thức. Là do dấu cách " " trong REPT.
Thank

 

[ndu96081631]

Đã sửa được lỗi công thức. Là do dấu cách " " trong REPT.
Thank

Chính xác là thế!
Copy mấy khoảng trắng trên diễn đàn về máy rất dễ bị biến thành CHAR(160) lắm

 

[hoamattroicoi]

Nhờ NDU xem giùm file này, không biết lỗi chỗ nào mà kết quả vẫn còn "Quận..."
---
Công thức y như bài 5
---
Đã sửa được lỗi công thức. Là do dấu cách " " trong REPT.
Thank

=TRIM(MID(TRIM(RIGHT(SUBSTITUTE(SUBSTITUTE(A2,", Thành Phố Hải Phòng",""),",",REPT(" ",LEN(A2))),LEN(A2))),6,100))

Trong hàm của tôi, ký tự “ “ bạn gõ chỗ : REPT(" ",LEN(A2)) mã code là 160 nên hàm TRIM không xử lý được, bạn xóa chỗ đó và tạo lại bằng phím space trên bàn phím thì sẽ được.

 

[VMH0307]

Góp vui công thức sau: (chỉ áp dụng với file người hỏi, do dùng substitute sai chính tả là tèo)

=SUBSTITUTE(REPLACE(A1,1,IFERROR(FIND("Quận",A1)+4,0)+IFERROR(FIND("Huyện",A1)+5,0),""),", Thành Phố Hải Phòng","")

 

[AlexViean]

Cảm ơn tất cả mọi người đã nhiệt tình giúp đỡ mình. Mình dùng công thức của @VMH0307 và rất thành công, chạy rất tốt và chưa hề có sự cố nào. Trường hợp của mình chỉ có một dạng như vậy nên nhu cầu không cần thêm nhiều nữa. Một lần nữa, xin cảm ơn mọi người