Is there a function that can reverse the contents of a cell?
i.e. A1=Cat ...result = tac
Thanks,
Brian
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
ADVERTISEMENT
MsgBox StrReverse("cat")
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
ADVERTISEMENT
Function reverse(S As String)
reverse = StrReverse(S)
End Function
=LEFT(RIGHT(Sheet1!$A$1,COLUMN(1:$256)),1)
=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))