Lấy ký tự đầu của thông tin

[thuyngaanhphuong]

Chào cả nhà ạ!

Cả nhà cho em hỏi vấn đề này ạ. Em cần lấy ký tự đầu của các tỉnh thì làm thế nào ạ?

Ví dụ: tỉnh Nam Định thì em cần lấy 2 ký tự ND

Em cảm ơn cả nhà ạ

 

[VetMini]

Chào cả nhà ạ!

Cả nhà cho em hỏi vấn đề này ạ. Em cần lấy ký tự đầu của các tỉnh thì làm thế nào ạ?

Ví dụ: tỉnh Nam Định thì em cần lấy 2 ký tự ND

Em cảm ơn cả nhà ạ

Thì sẽ được Bình Định giống Bình Dương; Đồng Nai giống Đà Nẵng; Quảng Nam giống Quảng Ngãi giống Quảng Ninh;

 

[LamNA]

Chào cả nhà ạ!

Cả nhà cho em hỏi vấn đề này ạ. Em cần lấy ký tự đầu của các tỉnh thì làm thế nào ạ?

Ví dụ: tỉnh Nam Định thì em cần lấy 2 ký tự ND

Em cảm ơn cả nhà ạ

Bạn tham khảo

Option Explicit
Function TenTat(Text As String) As String
  With WorksheetFunction
    Text = "{""" & Replace(.Trim(Text), " ", """;""") & """}"
    TenTat = Join(Evaluate("Transpose(LEFT(" & Text & ",1))"), "")
  End With
End Function

Link: https://www.giaiphapexcel.com/diend...y-ký-tự-đầu-tiên-trong-các-chuỗi-ký-tự.43016/

 

[VetMini]

Bạn tham khảo

Option Explicit
Function TenTat(Text As String) As String
  With WorksheetFunction
    Text = "{""" & Replace(.Trim(Text), " ", """;""") & """}"
    TenTat = Join(Evaluate("Transpose(LEFT(" & Text & ",1))"), "")
  End With
End Function

Link: https://www.giaiphapexcel.com/diendan/threads/hỏi-cách-lấy-ký-tự-đầu-tiên-trong-các-chuỗi-ký-tự.43016/

Hàm này không đổi Đ thành D, như điều kiện đòi hỏi.