Cách tách chữ cái ra khỏi chuỗi trong excel (1 người xem)

[casino.vp]

Các bạn ơi, cho mình hỏi chút, mình có 1 dãy danh sách tên khách hàng và mình muốn tách chỉ lấy chữ cái đầu thôi thì làm thế nào
ví dụ: Nguyễn Văn A : cột 1 N cột 2 V cột 3 A cột 4 NVA
tương tự Phạm Hữu Bình: Cột 1 P cột 2 H cột 3 B cột 4 PHB

Nếu tất cả khách hàng chỉ có 3 chữ như trên thì làm được rồi, nhưng có khách hàng như Trần Nguyễn Phương Anh mình chưa biết làm thế nào để tách được T N P A và cột cuối là TNPA

Cả nhà giúp mình với ạ, cảm ơn nhiều ạ

 

[phihndhsp]

Các bạn ơi, cho mình hỏi chút, mình có 1 dãy danh sách tên khách hàng và mình muốn tách chỉ lấy chữ cái đầu thôi thì làm thế nào
ví dụ: Nguyễn Văn A : cột 1 N cột 2 V cột 3 A cột 4 NVA
tương tự Phạm Hữu Bình: Cột 1 P cột 2 H cột 3 B cột 4 PHB

Nếu tất cả khách hàng chỉ có 3 chữ như trên thì làm được rồi, nhưng có khách hàng như Trần Nguyễn Phương Anh mình chưa biết làm thế nào để tách được T N P A và cột cuối là TNPA

Cả nhà giúp mình với ạ, cảm ơn nhiều ạ

Tạm thời thế này cái đã, bạn có thể tự phát triển thêm

 

[VetMini]

...
Nếu tất cả khách hàng chỉ có 3 chữ như trên thì làm được rồi, nhưng có khách hàng như Trần Nguyễn Phương Anh mình chưa biết làm thế nào để tách được T N P A và cột cuối là TNPA

Cả nhà giúp mình với ạ, cảm ơn nhiều ạ

Cách làm của bạn không chuẩn ngay từ đầu. Vì bạn có Trần Nguyễn Phương Anh cho nên bạn nghĩ có thể dùng 5 cột (các tên 3 từ thì để trống côt thứ tư). Nếu bạn có Tôn Nữ Thị Hồng Nhung thì tính như thế nào?

Chả lẽ tôi phải đọc suốt hết dữ liệu để tìm tên dài nhất, rồi dựa theo tên đó mà đặt số cột?

 

[VetMini]

Hàm lấy ký tự đầu tiên viết như vầy:

Function TenVietTat(byVal ten As String) As String
Dim c as variant
TenVietTat = ""
For Each c in Split(ten, " ")
TenVietTat = TenVietTat & Left(c,1)
Next c
End Function

Các hàm lây từng ký tự viết như vầy:

Function KyTuDau(byval ten as String, byval n As Integer) As String
KyTuDau = Mid(TenVietTat(ten), n, 1)
End Function