Reverse list of words in a text string separated by comma

[sounny]

I have an excel spread sheet that has a column with lists in text format separated by comma. Each individual field has different amounts of word.

what I have

word1,word2,word3,word4

what I want

word4,word3,word2,word1

Some fields may have 4 words, other may have 6, other 10, etc.

Is there a formula that I can use to get this reversed?

Thanks

 

[Gregorys05]

Use this code in a vba module</PRE>
</PRE>

[/B]</PRE>
[B]Function ReverseCell(Rcell As Range, Optional IsText As Boolean)[/B]	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[B]End Function

</PRE>Then Enter the function like this for text:

=Reversecell(A1,TRUE)

Or either of the ways below for numeric data

=Reversecell(A1,FALSE)

 

[GlennUK]

Can you instal this add-in:
http://xcell05.free.fr/morefunc/english/
?
That has functions that used in combination will do what you want.

 

[sounny]

The download is not working, too bad

 

[DonkeyOte]

Perhaps:

Function ReverseString(rngString As Range, Optional strDelim As String = ",") As String
    Dim vStrings As Variant, lngString As Long
    vStrings = Split(rngString, strDelim)
    For lngString = UBound(vStrings) To LBound(vStrings) Step -1
        ReverseString = ReverseString & strDelim & vStrings(lngString)
    Next lngString
    ReverseString = Replace(ReverseString, strDelim, "", 1, 1)
End Function

above stored in standard module in VBE then

=ReverseString(A1)

where A1 holds original

 

[GlennUK]

The download is not working, too bad

If you still want to try it, maybe this one will work:

http://xcell05.free.fr/downloads/Morefunc.zip

 

[sounny]

I am getting a compile error on this.

 

[sounny]

Worked like a charm

 

[VishMishra]

Paste the below code in regular Module of Excel VBA.:

Public Function ReverseWords(cell As Range)

Dim InputStr As String
Dim InputArray() As String
Dim OutputArray As String
Dim WordsCount As Integer

InputStr = cell.Value

'Split all the words and put it
'in an array
InputArray = Split(InputStr, " ")
WordsCount = UBound(InputArray)

'Read all the words in reverse
'Order and return to function

For i = WordsCount To 0 Step -1
ReverseWords = ReverseWords & InputArray(i) & ", "
Next

End Function

Now Use the below UDF (User defined formula to reverse the words of a cell

=ReverseWords(Cell Address)

http://www.learnexcelmacro.com/2012/01/words-in-reverse-order/

 

[GlennUK]

In what way is that better than DonkeyOte's post? Except that your post is nearly a year newer of course.