Hỏi đáp về cách tách nhiều họ và tên trong một cột

[bitun1991]

Kính gửi Anh Chị,

Em đang có một rắc rối nhỏ muốn nhận được sự hỗ trợ từ anh chị ạ.
Hiện tại em đang có một cột họ tên trong cùng 1 ô.
Nhờ các anh chị giúp viết giúp em công thức có thể tách được ra tên 1 và tên 2 ạ.

Em xin cám ơn ạ.

 

[Thóc Sama]

Kính gửi Anh Chị,

Em đang có một rắc rối nhỏ muốn nhận được sự hỗ trợ từ anh chị ạ.
Hiện tại em đang có một cột họ tên trong cùng 1 ô.
Nhờ các anh chị giúp viết giúp em công thức có thể tách được ra tên 1 và tên 2 ạ.

Em xin cám ơn ạ.

Ô tên của bạn có trường hợp nhiều hơn 2 tên không?

 

[bitun1991]

Ô tên của bạn có trường hợp nhiều hơn 2 tên không?

có anh ạ, em xin lỗi em quên không hỏi.
nhưng có list này list kia anh ạ.
có list 2 tên
nhưng có list tới tận 10 tên.
anh có hàm chung không ạ. không thì anh cho em hàm 2 tên cũng được ạ.

 

[Thóc Sama]

có anh ạ, em xin lỗi em quên không hỏi.
nhưng có list này list kia anh ạ.
có list 2 tên
nhưng có list tới tận 10 tên.
anh có hàm chung không ạ. không thì anh cho em hàm 2 tên cũng được ạ.

Tên 1: LEFT(A4,SEARCH(CHAR(10),A4)-1)
Tên 2: TRIM(MID(A4,SEARCH(CHAR(10),A4)+1,100))
※ Nếu nhiều tên thì nên viết code/nhờ viết code thì hợp lý hơn.
Thêm cách làm cho bạn, có thể dùng chức năng Flash Fill (Ctrl+E) để tách.

 

[bitun1991]

Tên 1: LEFT(A4,SEARCH(CHAR(10),A4)-1)
Tên 2: TRIM(MID(A4,SEARCH(CHAR(10),A4)+1,100))
※ Nếu nhiều tên thì nên viết code/nhờ viết code thì hợp lý hơn.

dạ vâng em cảm ơn ạ.

 

[hocexcel_1991]

Bạn dùng công thức này
=TRIM(MID(SUBSTITUTE($A4,CHAR(10),REPT(" ",99)),(COLUMNS($A:A)-1)*99+1,99))

 

[Maika8008]

có anh ạ, em xin lỗi em quên không hỏi.
nhưng có list này list kia anh ạ.
có list 2 tên
nhưng có list tới tận 10 tên.
anh có hàm chung không ạ. không thì anh cho em hàm 2 tên cũng được ạ.

Nhiều tên thì bạn dùng mấy dòng code này:

Sub TachTen()
    Dim arr
    arr = Split(Range("A4"), Chr(10))
    Range("E4").Resize(1, UBound(arr) + 1) = arr
End Sub

 

[bitun1991]

Nhiều tên thì bạn dùng mấy dòng code này:

Sub TachTen()
    Dim arr
    arr = Split(Range("A4"), Chr(10))
    Range("E4").Resize(1, UBound(arr) + 1) = arr
End Sub

thế sau đó dùng như thế nào ạ.

 

[Maika8008]

thế sau đó dùng như thế nào ạ.

Chép vào 1 module VBA nào đó rồi Alt+F8 chọn nó để chạy.
Tôi sẽ thêm vòng lặp để chạy từ đầu đến cuối bảng, bắt đầu từ A4 (cần có thêm dữ liệu cho bảng - đưa cái nào có 10 tên như bạn đã nói ở bài #3 ấy). Tạo 1 cái nút liên kết với code để bấm vào đó chạy thôi.

 

[HDDP]

này sử dụng text to clumn bằng Ctrl J nhanh nhất bạn nhé

 

[bitun1991]

Chép vào 1 module VBA nào đó rồi Alt+F8 chọn nó để chạy.
Tôi sẽ thêm vòng lặp để chạy từ đầu đến cuối bảng, bắt đầu từ A4 (cần có thêm dữ liệu cho bảng - đưa cái nào có 10 tên như bạn đã nói ở bài #3 ấy). Tạo 1 cái nút liên kết với code để bấm vào đó chạy thôi.

à thế em hiểu rồi ạ, cám ơn anh.