Nhờ Các Anh Chị giúp E tách các câu liền nhau trong một chuỗi! (1 người xem)

[ngotuanthuy]

Chào Chị Anh/Chị!
Em có một file dữ liệu do sơ xuất sử dụng lệnh replace khoảng trắng bây giờ các ô trong cell của E trở thành các chuỗi liền nhau (VD: “Ngo Tuan Thuy” thành “NgoTuanThuy” ) giờ E muốn các ô liền nhau trong chuỗi trở lại như cũ (Có nghĩa là cứ cách một từ sẽ là một khoảng trắng) chi tiết Em gửi trên file đính kèm. Nhờ các cao thủ excel hỗ trợ giúp E. Cảm ơn Nhiều.

 

[ndu96081631]

Chào Chị Anh/Chị!
Em có một file dữ liệu do sơ xuất sử dụng lệnh replace khoảng trắng bây giờ các ô trong cell của E trở thành các chuỗi liền nhau (VD: “Ngo Tuan Thuy” thành “NgoTuanThuy” ) giờ E muốn các ô liền nhau trong chuỗi trở lại như cũ (Có nghĩa là cứ cách một từ sẽ là một khoảng trắng) chi tiết Em gửi trên file đính kèm. Nhờ các cao thủ excel hỗ trợ giúp E. Cảm ơn Nhiều.

Tức là: Dấu hiệu để nhận biết bắt đầu 1 từ là ký tự đầu tiên của từ đó luôn viết HOA, đúng khổng?
Nếu đúng thế thì tôi nghĩ chỉ có thể giải quyết bằng VBA ---> Bạn đồng ý ta sẽ tiếp tục

 

[ngotuanthuy]

Dạ đúng rồi Anh à..Sau mỗi một từ trong đó thì luôn là là một ký tự viết hoa trên đầu. Rất mong nhận được sự giúp đỡ của Anh ndu96081631. Cảm ơn Anh nhiều

 

[ndu96081631]

Dạ đúng rồi Anh à..Sau mỗi một từ trong đó thì luôn là là một ký tự viết hoa trên đầu. Rất mong nhận được sự giúp đỡ của Anh ndu96081631. Cảm ơn Anh nhiều

Dùng hàm tự tạo này thử xem:

Function StrSep(ByVal Text As String) As String
  Dim i As Long, tmp1 As String, tmp2 As String, res As String
  tmp1 = Text
  For i = Len(tmp1) To 1 Step -1
    tmp2 = Mid(tmp1, i, 1)
    If Len(Trim(tmp2)) Then
      res = IIf(UCase(tmp2) = tmp2, " ", "") & tmp2 & res
    End If
  Next
  StrSep = Trim(res)
End Function

Chèn code trên vào module, xong ra ngoài bảng tính, gõ công thức này vào cell F2: =StrSep(B2) rồi kéo fill xuống

 

[ngotuanthuy]

Dùng hàm tự tạo này thử xem:

Function StrSep(ByVal Text As String) As String
  Dim i As Long, tmp1 As String, tmp2 As String, res As String
  tmp1 = Text
  For i = Len(tmp1) To 1 Step -1
    tmp2 = Mid(tmp1, i, 1)
    If Len(Trim(tmp2)) Then
      res = IIf(UCase(tmp2) = tmp2, " ", "") & tmp2 & res
    End If
  Next
  StrSep = Trim(res)
End Function

Chèn code trên vào module, xong ra ngoài bảng tính, gõ công thức này vào cell F2: =StrSep(B2) rồi kéo fill xuống

=> Thật là hay, nhờ Anh Em đã làm xử lý được vấn đề này rồi. Cảm ơn Anh ndu96081631 rất nhiều!