Thêm dấu cách cho chuỗi ký tự (1 người xem)

[trangbtt2]

Nhờ các bạn hướng dẫn giúp mình vụ này với:
Do sơ suất khi xử lý dữ liệu mình đã đổi hết tất cả cột họ và tên thành không có dấu cách: vd chuyển Nguyễn Văn A ->NguyễnVănA
Vậy có hàm nào để chuyển lại thành Nguyễn Văn A không. cảm ơn các bạn nhiều

 

[ndu96081631]

Nhờ các bạn hướng dẫn giúp mình vụ này với:
Do sơ suất khi xử lý dữ liệu mình đã đổi hết tất cả cột họ và tên thành không có dấu cách: vd chuyển Nguyễn Văn A ->NguyễnVănA
Vậy có hàm nào để chuyển lại thành Nguyễn Văn A không. cảm ơn các bạn nhiều

Dùng code này thử:

Function NameSeparate(ByVal sName As String) As String
  Dim i As Long, Text As String, tmp As String
  On Error Resume Next
  Text = sName
  For i = Len(Text) To 1 Step -1
    tmp = Mid(Text, i, 1)
    If Trim(tmp) <> "" Then
      If tmp = UCase(tmp) Then Text = Replace(Text, tmp, " " & tmp)
    End If
  Next
  NameSeparate = Trim(Text)
End Function

Điều kiện để hàm chạy đúng là:
- Các từ luôn là chữ thường, trừ ký tự đầu mỗi từ
- Chỉ áp dùng với tên người bình thường, không áp dụng với các ký tự đặc biệt
===> Mang code trên cho vào 1 module rồi áp dụng trên bảng tính như hàm Excel bình thường (ví dụ: =NameSeparate(A1) ---> Với A1 là cell chứa chuổi)

 

[trangbtt2]

bạn ơi có thể hướng dẫn cụ thể giúp mình, mình chưa hiểu làm như thế nào lắm, vì mình ko phải dân IT mà. Tks bạn nhiều