例如:张三
三张
张 三
三 张
去重后只剩下其中任何一个就可以。结果为: 张三 或 三张 或 张 三 或 三张
谢谢ï¼å¦æè½ååºæ¥å°±å¥½äºï¼ææ°´å¹³è¯å®æ¯ä¸å¤ç
追çæç»ä¸é¢ç第äºæ¥åäºä¸ä¸ªèªå®ä¹å½æ°ï¼alt+f11,ç¹å»æ¨¡åï¼ä½ æ代ç å¤å¶è¿å»ï¼å°±å¯ä»¥ä½¿ç¨æåºå½æ°äºã
Public Function paixu(a As String) As String
n = Len(a)
Dim t() As String
ReDim t(n)
For i = 1 To n
t(i) = Mid(a, i, 1)
Next
For i = 1 To n
For j = i + 1 To n
If t(j) < t(i) Then
s = t(i)
t(i) = t(j)
t(j) = s
End If
Next
Next
For i = 1 To n
paixu = paixu & t(i)
Next
End Function
=paixu(a1)çç»ææ¯å¯¹a1çæåºç»æ,ä¹å°±æ¯è¯´ä½ å¯ä»¥ææææ°æ®é½æåºä¸ä¸äºã
例如:拿具体的文件(就这几个字)去重.
1,拿出具体的文件
2,拿出文件的具体
3,具体的文件拿出
4,拿出 具体 文件 的
5,拿 文件 出 具体 的
6,拿文件 出 具体的
这样随意的排序或者空格,只要字是一模一样的,去重后就只得出来一个结果,任意结果都可以,麻烦你帮我写了哦。谢谢
具体说明下怎么用公式好吗?我比较菜
追答呵呵,这个看不懂不能说明你比较菜,是因为公式比较复杂
具体讲:
1°先去除所有的括号
2°判断一共有几个不一样的
3°若行数超过不一样的个数,则显示为空
4°若行数低于不一样的个数,那么列举每一个不一样的数