Code tách lấy chữ sau dấu cách

[Yeuvoyeucon]

Kính gửi Anh Chị,
Em có code dưới mới chỉ tách được chữ bên trái bên trái.

Nguyễn Đình Vân Chung => Code mới lấy được Nguyễn
Sửa đoạn này Cells(r, 2).Value = Left(Cells(r, 1), InStr(1, Cells(r, 1), " ") - 1) thế nào để nó lấy được Nguyễn Đình Vân ạ

Sub extract()
Dim r As Long, m As Long
Dim ws As Worksheet

Set ws = Worksheets("Sheet1")
m = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
For r = 2 To m
Cells(r, 2).Value = Left(Cells(r, 1), InStr(1, Cells(r, 1), " ") - 1)

Next
End Sub

 

[VetMini]

Sửa cái chỗ đía-điếc rồi tôi chỉ cho.
Không thích sửa thì chờ chút, chắc có người khác sẵn lòng.

 

[Phuocam]

Dùng hàm InStrRev

 

[Yeuvoyeucon]

Sửa cái chỗ đía-điếc rồi tôi chỉ cho.
Không thích sửa thì chờ chút, chắc có người khác sẵn lòng.

Dạ sửa xong rồi ạ.

 

[Phuocam]

Cells(r, 2).Value = Left(Cells(r, 1), InStrRev( Cells(r, 1), " ") - 1)

 

[Yeuvoyeucon]

Cells(r, 2).Value = Left(Cells(r, 1), InStrRev( Cells(r, 1), " ") - 1)

Em cảm ơn anh ạ.

 

[VetMini]

Bài này có nhiều cách giải.
Để dễ hiểu, cứ theo cách giải sẵn của bạn:
Nguyễn Đình Vân Chung có tất cả 4 từ, tức là 3 dấu cách
Cái bạn muốn là tìm dấu cách cuối cùng, và lấy chuỗi kể từ đầu cho đến dấu cách này.
Để có thể tìm được ký tự xuất hiện lần cuối trong chuỗi, dùng hàm InStrRev.
Xem code bài #5.

 

[Yeuvoyeucon]

Bài này có nhiều cách giải.
Để dễ hiểu, cứ theo cách giải sẵn của bạn:
Nguyễn Đình Vân Chung có tất cả 4 từ, tức là 3 dấu cách
Cái bạn muốn là tìm dấu cách cuối cùng, và lấy chuỗi kể từ đầu cho đến dấu cách này.
Để có thể tìm được ký tự xuất hiện lần cuối trong chuỗi, dùng hàm InStrRev.
Xem code bài #5.

Dạ nếu cần lấy theo kiểu dưới đây thì làm thế nào ạ.

Nguyễn Văn An	Nguyễn Văn An
Trần Thị Phương Bình	Trần Thị Phương

 

[befaint]

thế nào

Ví dụ .

 

[HieuCD]

Dạ nếu cần lấy theo kiểu dưới đây thì làm thế nào ạ.

Nguyễn Văn An	Nguyễn Văn An
Trần Thị Phương Bình	Trần Thị Phương

Cells(R, 2).Value = Mid(Cells(R, 1), 1, InStr(1, Replace(Cells(R, 1) & " ", " ", "|", 1, 2), " ") - 1)

 

[Yeuvoyeucon]

Cells(R, 2).Value = Mid(Cells(R, 1), 1, InStr(1, Replace(Cells(R, 1) & " ", " ", "|", 1, 2), " ") - 1)

Em cảm ơn anh ạ !