在excel中，如何将虽然文字顺序不同但包含的字是相同的单元格找出来？

Question

例如：
A1：红色苹果；
A2：红苹果色；
A3：苹果红色；
A4：色果红苹；
A5：绿色苹果；
A6：红色苹果好吃；
以上单元格中，A1、A2、A3、A4是视为相同的内容，A5是不同的，A6也是不相同的；
单元格中的字数最多可能有10个，也可能还包含数字、字母等；我最初的设想是先将单元格中的内容按一定的顺序排序后，再查找相同的单元格就简单了，但还没有找到如何将单元格中的内容排序的方法；
请教各位高手有什么好的方法？请不要使用复杂的编程类的方法哦

Answer 1

在一个空白列中输入：=if(or(a1="红色苹果","红苹果色","苹果红色","色果红苹"),"1","")，其它以此类推，然后再把空白列的数字进行排序，就可达到你要的效果。

Answer 2

1、用Excel的资料剖析功能，将文字分拆成一个单元格一个文字。
2、用Code函数将单无格内的文字转化为编号
3、将编号加总，如果总数为一样的就相同。

Answer 3

“现金计算”是个工作表（如sheet1之类的），如果你找不到，可能被隐藏了（右键点任意一工作表的名字，取消隐藏，..）

Answer 4

把：后的文字通过函数单列出来即可

Answer 5

将单元格中的内容排序的方法，用VB也比较简单的：对指定单元格的内容按字符ascii码大小进行排序(对汉字来说就是按声母的顺序排序)。
在工作表页面按ALT+F11 进入VBA编辑窗口，点菜单“插入”->“模块”，粘贴以下代码到光标位置，保存并关闭代码窗口。
该代码是一个自定义函数, 用法跟excel函数基本相同，比如要排序A1单元格的内容就在A2单元格输入=px01(A1)。
以后在打开文件时要将宏的安全性设置为中（菜单“工具”->“宏”->“安全性”）并启用宏。

代码如下:
Function px01(str As String)
ReDim arr(Len(str) - 1)
For i = 1 To Len(str)
arr(i - 1) = Mid(str, i, 1)
Next
For i = LBound(arr) To UBound(arr) - 1
For ii = i + 1 To UBound(arr)
If Asc(arr(i)) > Asc(arr(ii)) Then
temp = arr(ii)
arr(ii) = arr(i)
arr(i) = temp
End If
Next ii
Next i
px01 = Replace(Join(arr), " ", "")
End Function本回答被提问者和网友采纳