Tách ký tự đầu tiên của họ và chữ lót, giữ nguyên tên

[tuyetnhi]

Gởi các bạn,
Nhờ các bạn chỉ giúp mình cách tách như sau:
VD: Nguyễn Hoàng Dung -> NHDung

Cảm ơn các bạn rất nhiều.

 

[dat_butmuc]

Gởi các bạn,
Nhờ các bạn chỉ giúp mình cách tách như sau:
VD: Nguyễn Hoàng Dung -> NHDung

Cảm ơn các bạn rất nhiều.

Cái này đã nói nhiều ở GPE:
Bạn tham khảo các link sau:
http://www.giaiphapexcel.com/forum/...y-một-vài-kí-tự-trong-1-xâu&p=60675#post60675
http://www.giaiphapexcel.com/forum/...ự-đầu-tiên-của-từng-từ-trong-một-đoạn-văn-bản.
http://www.giaiphapexcel.com/forum/showthread.php?20182-Lấy-chữ-cái-đầu-trong-họ-tên

 

[Hai Lúa Miền Tây]

Cái này đã nói nhiều ở GPE:
Bạn tham khảo các link sau:
http://www.giaiphapexcel.com/forum/showthread.php?8843-Lấy-một-vài-kí-tự-trong-1-xâu&p=60675#post60675
http://www.giaiphapexcel.com/forum/...ự-đầu-tiên-của-từng-từ-trong-một-đoạn-văn-bản.
http://www.giaiphapexcel.com/forum/showthread.php?20182-Lấy-chữ-cái-đầu-trong-họ-tên

Hình như các bài trên chưa nói đến cách lấy tên trong cúng 1 cell, VD cell A1= Nguyễn Hoàng Dung -> NHDung. Thì chưa thấy.

@Tuyetnhi:
Đây là Box Phòng Thí Nghiệm, bạn nên để ý và post bài cho đúng Box nhé.
Đúng ra bài này bạn nên post vào Box Xử lý chuỗi ký tự
Bài:
Các phương pháp tách họ và tên đề nghị post ở đây

 

[tuyetnhi]

Cảm ơn bạn nha, mình đã sửa cho vô box Xử lý chuỗi ký tự nhưng không được. (vì chưa quen gởi bài )
Bạn có cách nào giúp mình chỉ làm trên 1 dòng công thức thôi được không? (Không sứ dụng VBA) Mình đã xem các link bạn dat_butmuc gởi nhưng chưa được. Nhờ các bạn giúp, vì mình cần gấp.Cảm ơn các bạn rất rất nhiều....

 

[Hai Lúa Miền Tây]

Cảm ơn bạn nha, mình đã sửa cho vô box Xử lý chuỗi ký tự nhưng không được. (vì chưa quen gởi bài )
Bạn có cách nào giúp mình chỉ làm trên 1 dòng công thức thôi được không? (Không sứ dụng VBA) Mình đã xem các link bạn dat_butmuc gởi nhưng chưa được. Nhờ các bạn giúp, vì mình cần gấp.Cảm ơn các bạn rất rất nhiều....

Mình chỉ biết dùng code thôi, bạn dùng thử nhé

Function TachTen(Ten As String) As String
    Dim Temp, Temp1 As Variant
    Dim J, nPos As Integer
    Application.Volatile
    Temp = Split(Trim(Ten))
    Temp1 = Trim(Ten)
    nPos = InStrRev(Temp1, " ")
    For J = 0 To UBound(Temp) - 1
        TachTen = TachTen & Left(Temp(J), 1)
    Next J
    TachTen = TachTen & Mid(Temp1, nPos + 1)
    
End Function

 

[gaunuicr]

Gởi các bạn,
Nhờ các bạn chỉ giúp mình cách tách như sau:
VD: Nguyễn Hoàng Dung -> NHDung

Cảm ơn các bạn rất nhiều.

Đúng yêu cầu của bạn rồi đây nhưng hơi dài một chút. Thôi thì có cũng còn hơn không, hãy xài tạm, mình sẽ "ngâm cứu" tiếp.
Nếu ở cell A7 bạn có text Nguyễn Hoàng Dung thì nhập vào cell B7 công thức sau:
=LEFT(TRIM(A7))&LEFT(TRIM(RIGHT(SUBSTITUTE(TRIM(A7);" ";REPT(" ";100));LEN(SUBSTITUTE(TRIM(A7);" ";REPT(" ";100)))-LEN(A7))))&IF(LEN(SUBSTITUTE(TRIM(A7);" ";REPT(" ";100)))>100;TRIM(RIGHT(SUBSTITUTE(TRIM(A7);" ";REPT(" ";LEN(A7)));LEN(A7)));"")
Thân!

 

[tuyetnhi]

Cảm ơn bạn nhé. Nhưng mình chỉ áp dụng công thức bạn gởi cho NV nào tên có 3 chữ thôi, còn 4 chữ trở lên thì không được.
VD: Nguyễn Thị Hoàng Dung -> NTDung

Cảm ơn các bạn đã nhiệt tình giúp đỡ .