我想在excel 单元格中凌乱的数组

没有这样的系统函数，但是可以自己定义一个，VBA代码如下：

Option Explicit

Function 单元格内排序(ByVal r As String) As String
    Dim arr, i, j, k, t
    arr = Split(Replace(r, ",", " "), " ")
    For i = LBound(arr) To UBound(arr)
        If i < UBound(arr) Then
            k = i
            For j = i + 1 To UBound(arr)
                If arr(k) > arr(j) Then k = j
            Next j
            If k <> i Then
                t = arr(k)
                arr(k) = arr(i)
                arr(i) = t
            End If
        End If
    Next i
    单元格内排序 = Join(arr, " ")
End Function

附件是具有这个函数的工作簿，使用例子见下图：

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/ve3ef3yyj27j3fxyexx.html