transpose characters in a cell (ex: ABC12345 changes to 54321CBA)

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I looking to take a column of part numbers (mixed with text and numerals) and
transpose the character position from left-to-right - changing it to
right-to-left. An example would be 5YA124 would change to read 421AY5
 
Say you are reversing the contents of cell A1, use the code below and
type =ReverseCell(A1,TRUE) in your target cell.


Function ReverseCell(Rcell As Range, Optional IsText As Boolean)
Dim i As Integer
Dim StrNewNum As String
Dim strOld As String
strOld = Trim(Rcell)
For i = 1 To Len(strOld)
StrNewNum = Mid(strOld, i, 1) & StrNewNum
Next i
If IsText = False Then
ReverseCell = CLng(StrNewNum)
Else
ReverseCell = StrNewNum
End If
End Function



HTH,
JP
 
Try this one line UDF:

Function reverse(r As Range) As String
reverse = StrReverse(r.Value)
End Function
 
Thanks!! this works awesome!!!

Gary''s Student said:
Try this one line UDF:

Function reverse(r As Range) As String
reverse = StrReverse(r.Value)
End Function
Click to expand...
 
Back
Top