紧急求助，一个巨难的问题！

tieliren

一个单元格中数据如何排序    3721609aABcplA        0123679aAABclp 这个问题真的很困难，试验了很多办法依然没有解决。

kangking

Public Function Order(s As String)

Dim a() As String
Dim i As Integer
Dim j As Integer
Dim t As String

i = Len(s)
ReDim a(i) As String

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

For i = 1 To Len(s)
    For j = i + 1 To Len(s)
        If a(i) > a(j) Then
            t = a(i)
            a(i) = a(j)
            a(j) = t
        End If
    Next
Next

For i = 1 To Len(s)
    Order = Order & a(i)
Next

   

End Function

sagemeyou

KANKAN

tieliren

能具体解释一下这个程序吗？我是一个初学者，拜托了！

还有就是具体如何倒入运行，最好详细点。大师，拜托了！

wanshan

你为什么不上个例子呢？
看你说是单元格，莫非是excel中？这里是access版块。

tieliren

不好意思，可能是我的用语不恰当，就是一个格子里面（和EXCEL的单元格一样）的数据如何进行排序。

希望能给点指导，拜托了

wanshan

你的意思是对值里面的每个字符进行排序吗？这样可就更改了表里的值。
为什么有这样的要求呢？
你如果早上例子，老早就解决了（用kangking的函数）！