Reverse numbers and text

[uttamsaxena]

How can I reverse ------

1) A number e.g. 12345 to 54321

2) A word e.g uttamsaxena to anexasmattu

3) Small sentence like "This is cat" to "tac si siht"

 

[Brian from Maui]

How can I reverse ------

1) A number e.g. 12345 to 54321

2) A word e.g uttamsaxena to anexasmattu

3) Small sentence like "This is cat" to "tac si siht"

Try ASAP Utilites under TEXT/Reverse text in selected cells.

www.asap-utilites.com

 

[tusharm]

If you have Laurent Longre's outstanding -- and free -- MoreFunc utility (http://longre.free.fr/english/), you can use array formula =MCONCAT(MID(C4,LEN(C4)+1-ROW(INDIRECT("1:"&LEN(C4))),1)) where C4 contains the cell to reverse.

An array formula is completed not with the ENTER key but with CTRL+SHIFT+ENTER.

 

[Aladin Akyurek]

=TEXTREVERSE(A1)

A function from the morefunc.xll add-in.

 

[Todd Bardoni]

I wrote this function:

Function ReverseTxt(ByVal Target As Range)
    myLength = Len(Target.Value)
    For x = 0 To myLength
        ReverseTxt = Left(WorksheetFunction.Substitute(Target.Value, Left(Target.Value, x), ""), 1) & ReverseTxt
    Next x
End Function

It seems to work.

 

[tusharm]

Interesting...it doesn't appear in my version of Morefunc. I guess I must have a old version of the add-in.

=TEXTREVERSE(A1)

A function from the morefunc.xll add-in.

 

[tusharm]

If you must write a VBA function, just use VBA's Reverse() function!

Or if you are coding for VB5, use a loop for i=len(aStr) to 1 step -1 and Mid(aStr,i,1) to extract and concatenate each character. No need for calls on Left(...Substitute(...Left())).

I wrote this function:

Function ReverseTxt(ByVal Target As Range)
    myLength = Len(Target.Value)
    For x = 0 To myLength
        ReverseTxt = Left(WorksheetFunction.Substitute(Target.Value, Left(Target.Value, x), ""), 1) & ReverseTxt
    Next x
End Function

It seems to work.

 

[Ekim]

The function from the morefunc add-in should be:
=REVERSETXT(A1)

not

=TEXTREVERSE(A1)


tbardoni,

It seems to work.

Worked for everything that I threw at it.

Just for interest, here’s another UDF from Otto Moehrbach:

Function MyStrReverse(s As String) As String
Dim i As Long, rslt As String
   For i = Len(s) To 1 Step -1
      rslt = rslt & Mid(s, i, 1)
   Next i
MyStrReverse = rslt
End Function

Regards,


Mike

 

[Todd Bardoni]

Ha! You're right, this is a little better

Function ReverseTxt(ByVal Target As Range)
    ReverseTxt = StrReverse(Target.Value)
End Function

 

[Aladin Akyurek]

The function from the morefunc add-in should be:
=REVERSETXT(A1)

not

=TEXTREVERSE(A1)

Really? You must have a different version:

Book5
	A	B	C	D
1	12345	54321
2
Sheet1