find unique strings separated by comma for each row in a column and count the total recurrence

[#1]

Hi,

I wonder if there is a way to create column with formula to find unique strings separated by comma in a column and count total recurrence of each like below?

[#2 · Accepted solution]

Here is one way of handling this

Unique Item formula

x = Words( :Input, "," );
For Each( {element, index}, x, x[index] = Trim( element ) );
x = Associative Array( x ) << get keys;
x = Concat Items( x, "," );

Total Recurrence formula

x = Words( :Input, "," );
For Each( {element, index}, x, x[index] = Trim( element ) );
theList = Associative Array( x ) << get keys;
value = "";
For Each( {element}, theList, value = value || "," || Char( N Rows( Loc( x, element ) ) ) );
Substr( value, 2 );

[#3]

Hi Jim, 

it looks like both formula is same

[#4]

My error......I corrected my initial post to the correct formula

[#5]

Thank you for the helps!!!