Xin hướng dẫn cách tách gộp văn bản

[vutruonghainam]

Mình có số liệu như trên excel, bao gồm dòng tách và gộp:
- Ở phần tách, sau khi tách ra thì số mục số nhà tách riêng, tên đường tách riêng, phường chỉ còn số, quận cũng vậy, nếu tên quận có chữ thì để nguyên phần chữ
- Ở phần gộp thì tự động thêm chữ "Phường" và "Quận" sau dấu phẩy

Có ai giúp mình được không ạ, đối với mình thấy khó quá ạ, mong các bạn giúp mình với nhé, mình chân thành cảm ơn

 

[vutruonghainam]

có bác nào giúp em với ạ

 

[langtuchungtinh360]

có bác nào giúp em với ạ

D7=LEFT(D3;SEARCH(" ";D3))
E7=MID(D3;SEARCH(" ";D3);SEARCH(",";D3)-SEARCH(" ";D3))
F7=MID(D3;SEARCH(", P";D3)+3;SEARCH(" ";MID(D3;SEARCH(", P";D3)+3;999))-2)
G7=LEFT(MID(D3;SEARCH(", Q";D3)+3;999);SEARCH(", ";MID(D3;SEARCH(", Q";D3)+3;999))-1)
H7=MID(MID(D3;SEARCH(", Q";D3)+4;999);SEARCH(", ";MID(D3;SEARCH(", Q";D3)+3;999));999)
D17=d13&" "&e13&", "&$f$12&" "&f13&", "&$g$12&" "&g13&", "&$h$12&" "&h13

 

[vutruonghainam]

em cảm ơn bác ạ, bác ơi, bác tạo cho em bằng vba được không ạ? làm cái này mệt quá
hình như công thức trên bị sai ở dòng g8, h8 ạ, em cop mãi mà không chạy

 

[langtuchungtinh360]

em cảm ơn bác ạ, bác ơi, bác tạo cho em bằng vba được không ạ? làm cái này mệt quá
hình như công thức trên bị sai ở dòng g8, h8 ạ, em cop mãi mà không chạy

200/20 Roadway, P9, QTân Bình, HCM
xin lỗi bạn nha. mình sửa Tân Bình thành Q Tân Bình
VBA bạn chờ người khác giúp đi, tui không biết

 

[vutruonghainam]

cảm ơn bác ạ, bác có thể giúp em thêm ở ô h8 g8 được không ạ

 

[comet_1701]

cảm ơn bác ạ, bác có thể giúp em thêm ở ô h8 g8 được không ạ

Tại G8

=TRIM(SUBSTITUTE(MID(D4,FIND(",",D4,FIND(",",D4)+2),FIND(",",D4,FIND(",",D4,FIND(",",D4)+1)+1)-FIND(",",D4,FIND(",",D4)+2)),",",""))

Tại H8

=TRIM(RIGHT(SUBSTITUTE(D4,",",REPT(" ",100)),LEN(D4)))

Đang vội nên chỉ kịp làm tạm, bạn tham khảo nhé.

 

[vutruonghainam]

Tại G8

=TRIM(SUBSTITUTE(MID(D4,FIND(",",D4,FIND(",",D4)+2),FIND(",",D4,FIND(",",D4,FIND(",",D4)+1)+1)-FIND(",",D4,FIND(",",D4)+2)),",",""))

Tại H8

=TRIM(RIGHT(SUBSTITUTE(D4,",",REPT(" ",100)),LEN(D4)))

Đang vội nên chỉ kịp làm tạm, bạn tham khảo nhé.

em cảm ơn bác nhiều, có một chút nho nhỏ nữa là em cop công thức từ cột H8 qua cột H7 thì nó hiện thêm chữ Q nữa, bác có thể giúp em một việc nữa được không ạ? tức là cái ô quận thì khi nào có số thì chỉ hiện số thôi, không hiện chữ Q, còn nếu tên quận là chữ thì để nguyên ạ, em cảm ơn bác nhiều

 

[comet_1701]

em cảm ơn bác nhiều, có một chút nho nhỏ nữa là em cop công thức từ cột h8 qua cột h7 thì nó hiện thêm chữ q nữa, bác có thể giúp em một việc nữa được không ạ? Tức là cái ô quận thì khi nào có số thì chỉ hiện số thôi, không hiện chữ q, còn nếu tên quận là chữ thì để nguyên ạ, em cảm ơn bác nhiều :d

=iferror(--mid(d3,max(iferror(find(",",d3,row(indirect("1:"&len(d3)))),""))-1,1),trim(substitute(mid(d3,find(",",d3,find(",",d3)+2),find(",",d3,find(",",d3,find(",",d3)+1)+1)-find(",",d3,find(",",d3)+2)),",","")))

Kết thúc công thức bạn Ctrl+Shift+Enter. Tại G7 kéo xuống G8
Bạn nên thống nhất trong việc nhập cơ sở dữ liệu không thì về sau bạn còn phải sửa lại công thức nhiều. Nếu thống nhất được thì vừa đơn giản mà lại dễ làm

 

[vutruonghainam]

=iferror(--mid(d3,max(iferror(find(",",d3,row(indirect("1:"&len(d3)))),""))-1,1),trim(substitute(mid(d3,find(",",d3,find(",",d3)+2),find(",",d3,find(",",d3,find(",",d3)+1)+1)-find(",",d3,find(",",d3)+2)),",","")))

Kết thúc công thức bạn Ctrl+Shift+Enter. Tại G7 kéo xuống G8
Bạn nên thống nhất trong việc nhập cơ sở dữ liệu không thì về sau bạn còn phải sửa lại công thức nhiều. Nếu thống nhất được thì vừa đơn giản mà lại dễ làm

em cảm ơn bác nhiều ạ, bác có thể làm giúp em ở cột phường với lại cột thành phố được không ạ?

 

[comet_1701]

em cảm ơn bác nhiều ạ, bác có thể làm giúp em ở cột phường với lại cột thành phố được không ạ?

Thành phố công thức ở trên là ổn rồi . Phường bạn muốn thế nào? Sao không nói luôn từ đầu đi bạn, đừng hỏi nhỏ giọt thế. Không ai theo mãi một đề tài được nếu hỏi ko rõ ràng.

 

[doatmenhhon]

Góp vui văn nghệ bằng 1 chút VBA cho file tách sang Sheet 2 vì file gộp thì dễ rồi

 

[comet_1701]

Góp vui văn nghệ bằng 1 chút VBA cho file tách sang Sheet 2 vì file gộp thì dễ rồi

Tách nhỏ 2 lần là cách làm hay, cảm ơn bạn nhé
Khi tách ra 1 lần là cũng dễ làm rồi.

Darr(k, 2) = Trim(Left(x(0), InStr(x(0), " ") - 1))
    Darr(k, 3) = Trim(Right(x(0), Len(x(0)) - InStr(x(0), " ")))

Tách 2 lại càng ổn hơn

 

[doatmenhhon]

Tách nhỏ 2 lần là cách làm hay, cảm ơn bạn nhé
Khi tách ra 1 lần là cũng dễ làm rồi.

Darr(k, 2) = Trim(Left(x(0), InStr(x(0), " ") - 1))
    Darr(k, 3) = Trim(Right(x(0), Len(x(0)) - InStr(x(0), " ")))

Tách 2 lại càng ổn hơn

Hihi mình nghi là với kiểu gửi dữ liệu không phải dữ liệu thật và nhiều dòng còn nhiều tình huống có thể xảy ra. Nếu trả lời cứ tí một tí một thì đến mùa quýt sang năm. Cho nên góp vui tí chút rồi lặng lẽ chuồn cho nó lành.

 

[vutruonghainam]

hehe, em cảm ơn 2 bác đã giúp đỡ em rất là nhiều ạ
em chỉ cần cột Quận nếu có "Q.2 hoặc Quận 2 hoặc Quan 2 hoặc Q2" thì qua bên sheet 2 chỉ hiện số 2, còn nếu tên quận là chữ hoặc vừa chữ vừa số, ví dụ như "Tân Bình 2" thì qua bên sheet 2 sẽ là "Tân Bình 2" ạ, đối với Phường cũng vậy ạ
Em xin lỗi đã làm phiền 2 bác nhé

 

[doatmenhhon]

Nếu là Quan Hoa 2 thì tách thành Hoa 2 à??? Tốt nhất bạn gửi dữ liệu thật tầm 100 dòng lên đây ^^

 

[vutruonghainam]

Nếu là Quan Hoa 2 thì tách thành Hoa 2 à??? Tốt nhất bạn gửi dữ liệu thật tầm 100 dòng lên đây ^^

dạ đây anh, anh coi giúp em nhé ^^

 

[doatmenhhon]

Híc laptop ở nhà em vợ đang bảo dưõng hộ nên giờ vào bằng di động thấy file mà không tải được cứ thấy nao lòng . Hy vọng mai rỗi tranh thủ buổi trưa giúp bạn. Bằng mọi giá sẽ làm xong trước 3 ngày

 

[langtuchungtinh360]

cứ chơi dữ liệu không đồng nhất, tùm lum từa lưa hết thì chịu chết. chả được công thức nào tổng quát hết đâu bác.
cứ thống nhất 1 cách ghi, như Quận thì Q. chứ chỗ thì "Quận", chỗ thì "Q." chỗ thì "Q" thì chịu. ai lại trình bày dữ liệu lộn xộn như thế
bỏi thế muốn giúp cũng làm biếng. 3 hồi thế này 3 hồi thế kia

 

[doatmenhhon]

cứ chơi dữ liệu không đồng nhất, tùm lum từa lưa hết thì chịu chết. chả được công thức nào tổng quát hết đâu bác.
cứ thống nhất 1 cách ghi, như Quận thì Q. chứ chỗ thì "Quận", chỗ thì "Q." chỗ thì "Q" thì chịu. ai lại trình bày dữ liệu lộn xộn như thế
bỏi thế muốn giúp cũng làm biếng. 3 hồi thế này 3 hồi thế kia

Nhìn xong dữ liệu thật muốn ngất ra đấy hổng còn muốn làm nữa