Đảo ngược chuỗi kí tự (1 người xem)

[kongcom]

Mình gặp một bài toán dạng đánh đố . Trong đó các từ đều bị đảo ngược .... Nghe nói EXCEL có thể làm đảo ngược lại chuỗi kí tự bằng hàm tự tạo trong VBA . Nhờ các cao thủ giúp đỡ mình một tay . Cụ thể là làm sao để có thể đọc thành xuôi các từ kiểu như : " lecxE pahP iaiG " ????

 

[phuyen89]

Ừm bạn:
A +cách+"-"+cách+B
Ví dụ: Hà Nội - Phúc Thọ

+ Tui sửa lại 1 chút chỗ thêm 01 space vào trước và sau dấu phân cách thôi, bạn xem ổn chưa nhé.

Function DaoViTri(ByVal Chuoi As String, ByVal PhanCach As String) As String
    If VBA.InStr(1, Chuoi, PhanCach, vbTextCompare) = 0 Then Exit Function
    Dim Temp As Variant
    Dim Temp2 As String
    Dim i As Long
    Temp = VBA.Split(Chuoi, PhanCach)
    For i = UBound(Temp) To 0 Step -1
        Temp2 = Temp2 & " - " & Temp(i)
    Next i
    DaoViTri = Right(Trim(Temp2), Len(Temp2) - 2)
End Function

 

[Triệu thị nga]

Mình thử được rùi. Thanks bạn nhé!

 

[ndu96081631]

Cám ơn Bác đã đặt lệnh cho em ạ.
Bác cho em hỏi 1 chút khi em nhập thêm các dữ liệu mới thì ở bên Sheet ''TIENG NHAT'' ko hiện ra kết quả mà hiện ra các giá trị #VALUE ạ.
Bác giúp em với ạ.

Lỗi là do hàm VLOOKUP không tìm thấy (do dòng 7 chưa có dữ liệu số CMND)