如何实现一个单元格内的字符排序重组

ghwdt

拜求各位高人：

假如一个单元格里面有文字；“李ab郭1432AD，2@#（8-”,如何能现实按照excel的标准逻辑实现升序或者降序排列？非常感谢，在线等。

czzqb

如果文字不多，用函数勉强能作。如果多了（象你给这样的例子）还是用VBA吧

chrisfang

自定义函数：sx() 按升序排列：

Function sx(T_rng As Range)
Dim a() As String
sx = T_rng.Text
s = Len(sx)
ReDim a(1 To s) As String

For i = 1 To s
a(i) = Mid(sx, i, 1)
Next i

For m = 1 To s
For j = 2 To s
If a(j - 1) > a(j) Then
t = a(j - 1)
a(j - 1) = a(j)
a(j) = t
End If
Next j
Next m

sx = ""
For i = 1 To s
sx = sx & a(i)
Next i

End Function

如果要按降序排列，把代码中的大于号换成小于号即可。

[此贴子已经被作者于2006-10-14 10:44:15编辑过]