Reverse a string

[BrianM]

Is there a function that can reverse the contents of a cell?

i.e. A1=Cat ...result = tac

Thanks,
Brian

 

[Brian from Maui]

Is there a function that can reverse the contents of a cell?

i.e. A1=Cat ...result = tac

Thanks,
Brian

ASAP Utilities has a function that does just that,

www.asap-utilities.com

found under the Text menu...

 

[VoG]

Or a User Defined function

Function reverse(S As String)
    Dim Temp As String, I As Integer, n As Integer
    n = Len(S)
    For I = n To 1 Step -1
        Temp = Temp & Mid(S, I, 1)
    Next I
    reverse = Temp & Right(S, Len(S) - n)
End Function

ASAP-Utilities is better though unless you are going to be doing this a lot.

 

[BrianM]

Thanks to you both.

 

[erik.van.geit]

Hi,

there is an inbuiltfunction
might be a more recent one

MsgBox StrReverse("cat")

kind regards,
Erik

 

[DominicB]

Good evening BrianM

This would do the trick :

Function Reverse(Backwards As String)
Dim Length, Pos As Integer
Reverse = ""
Length = Len(Backwards)
For Pos = Length To 1 Step -1
Reverse = Reverse & Mid(Backwards, Pos, 1)
Next Pos
End Function

My add-in, available from the link below has this as a function, so once installed =REVERSE(A1) would show tac (if A1 contained "cat")

HTH

DominicB

 

[erik.van.geit]

talking about functions:

Function reverse(S As String)
    reverse = StrReverse(S)
End Function

so no need to loop
as mentioned, check if it works for your version

 

[Todd Bardoni]

Using formulas, (not too pretty though):-

Book1
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R	S	T	U	V	W	X	Y	Z	AA	AB	AC
1	ToddBardoni		i	n	o	d	r	a	B		d	d	o	T	T	T	T	T	T	T	T	T	T	T	T	T	T	T	inodraBddoT
Sheet1

In C1:AB1

=LEFT(RIGHT(Sheet1!$A$1,COLUMN(1:$256)),1)

Confirmed w/ Ctrl+Shift+Enter

In AC1

=LEFT(C1&D1&E1&F1&G1&H1&I1&J1&K1&L1&M1&N1&O1&P1&Q1&R1&S1&T1&U1&V1&W1&X1&Y1&Z1&AA1&AB1,LEN($A$1))

 

[DominicB]

Hi Erik

That "StrReverse" commands a handy thing to know. It would be interesting to know when it was introduced. As far back as XL2000...?

DominicB

 

[erik.van.geit]

Domonic,

I'll check it out on an elder PC with XL2000.
Almost sure it wasn't available in XL97

best regards,
Erik