How do I invert text (abc-->cba)

  • Thread starter Thread starter Guest
  • Start date Start date
Yes use Data, text to column ( with your example will create a b c one
letter in each cell) then in a fourth one concatenate in reverse order.
HTH

Gilles
 
Thanks, but I figured out another way that works better for what I'm trying
to accomplish. I should have stated in my original post, I wanted to invert
numbers, not actually text, but I thought text might be easier, then I could
multiply the "text" by 1 to change it to a number. Here's my solution using
VB:


===================================
Function invert(num)

If Len(num) = 1 Then invert = num Else:
If Len(num) = 2 Then invert = (Mid(num, 2, 1) & Mid(num, 1, 1)) Else:
If Len(num) = 3 Then invert = (Mid(num, 3, 1) & Mid(num, 2, 1) & Mid(num, 1,
1)) Else:
......
End Function
===================================

I could only get it to work for 55 characters because VB editor couldn't
handle a line of code any longer.


If you're curious, I was trying to solve a math problem that states, if you
incrementally add the inverse of a number to the previous total, how many
times do you have to get that before the result is an anagram. For instance:

6
6+6=12
12+21=33 (Two iterations)

(does it show how much of a Geek I am that this is what I'm doing for fun on
a Sat night?)
 
Try this UDF by Trevor Shuttleworth:

Function ReverseText(rt As Range)
Application.Volatile
Dim iLength As Integer
Dim iCount As Integer
iLength = Len(rt)
ReverseText = ""
For iCount = iLength To 1 Step -1
ReverseText = ReverseText & _
Mid(rt.Value, iCount, 1)
Next iCount
End Function

Biff
 
Moset

Public Function RevStr(Rng As Range)
RevStr = StrReverse(Rng.text)
End Function

usage is =RevStr(cellref) or =RevStr("string")

If inverting numbers, they will become text so must be converted back to numbers
if to be used as such.

usage is =RevStr(cellref)*1


Gord Dibben MS Excel MVP
 
Back
Top