HungQuoc49
Thành viên tiêu biểu
- Tham gia
- 9/7/14
- Bài viết
- 683
- Được thích
- 440
Hàm tự tạoCác anh chị cho em hỏi: trong excel có công thức nào tạo khoảng cách khi file mình nhận được có họ tên dính liền không ạ?
Ví dụ: NguyễnThịXuânAnh => em muốn tách ra là Nguyễn Thị Xuân Anh
Em cảm ơn các anh chị nhiều,
Mã:
Public Function VD(Ten)
Dim i, tam()
ReDim tam(1 To Len(Ten))
For i = 1 To Len(Ten)
If Mid(Ten, i, 1) = UCase(Mid(Ten, i, 1)) Then
tam(i) = "|" & Mid(Ten, i, 1)
Else
tam(i) = Mid(Ten, i, 1)
End If
Next i
VD = Replace(Join(tam), " ", "")
VD = Trim(Replace(VD, "|", " "))
End Function
Cú pháp := VD(Chuỗi )