求助!单元格中数据排序问题

jsrjf · 发表于 2004-3-31 11:32

请参看：

排序前	排序后
1,3,2,5,7,8,12,9	1,2,3,5,7,8,9,12
4,3,5,2,6	2,3,4,5,6
23,818,75	23,75,818
45,22,33	22,33,45

firstone · 发表于 2004-3-31 11:34

这些数据是干什么用的?非要写在一个单元格内吗???

jsrjf · 发表于 2004-3-31 11:45

是啊，得写在一个单元格中

gdliyy · 发表于 2004-3-31 11:56

如果必须要写入一个单元格中，可能需要用自定义函数来实现了!

wenz · 发表于 2004-3-31 11:58

的确，Excel不提供一个单元格内部的数据排序，因为一个单元格中所有数据成为排序时的一个数据。请高手为你做函数吧。

ljg830 · 发表于 2004-3-31 12:32

做了一个自定义函数: SortNum Function sortnum(s As String)
Dim m() As Integer
N = ""
ReDim m(Len(Trim(s)) / 2 + 0.5)
For i = 1 To Len(Trim(s))
k = Mid(s, i, 1)
If k = "," Then GoTo 100
m((i + 1) / 2) = Val(k)
100: Next
i = UBound(m)
Do While i > 1
j = 1
Do While j < i
If m(j) > m(j + 1) Then
z = m(j)
m(j) = m(j + 1)
m(j + 1) = z
End If
j = j + 1
Loop
i = i - 1
Loop
For i = 1 To UBound(m)
N = N & m(i) & ","
Next
sortnum = Mid(N, 1, Len(N) - 1)
End Function

jsrjf · 发表于 2004-3-31 14:30

我不会使用宏、VBA，不过还是谢谢各位了。我先记下来，慢慢学。

1353313808 · 发表于 2004-3-31 14:37

用函数公式和辅助表可以实现吗

wuxiaofeng · 发表于 2004-3-31 14:45

先分列，排完序再合并到一起

1353313808 · 发表于 2004-3-31 16:53

chunjun没看到?

		自动登录	找回密码
密码			免费注册