Function ReverseText(text) As String
Dim TextLen As Integer
Dim i As Integer
TextLen = Len(text)
For i = TextLen To 1 Step -1
ReverseText = ReverseText & Mid(text, i, 1)
Next i
End Function
Thoát khỏi cửa sổ Visual Basic
Cách sử dụng : tại ô kết quả bạn gõ
=ReverseText(A3) - A3 là ô mà có chứa chuỗi kí tự bạn muốn đảo ngược .