同一个单元格里的数字怎么大小排列？

先分列，排序，合并

现在没睡醒呢，中午告诉你怎么办

先分别截取出来，比完大小再合并

Sub sgzxglc()
Dim rg As Range, i%, arr, s%, brr(), n%
s = [a65536].End(3).Row
Range("b:b").Clear
ReDim Preserve brr(1 To 1, 1 To s)
For Each rg In Range("a1").CurrentRegion
arr = Split(rg, ",")
For i = 0 To UBound(arr)
For j = i + 1 To UBound(arr)
If arr(i) * 1 > arr(j) * 1 Then
k = arr(i)
arr(i) = arr(j)
arr(j) = k
End If
Next
Next
n = n + 1
f = Join(arr, ",")
brr(1, n) = Join(arr, ",")
Next
[b1].Resize(n) = Application.Transpose(brr)
End Sub

Sub kk()
Dim kk, kkk
For a = 1 To Range("a65536").End(xlUp).Row
kk = Cells(a, 1)
arr = Split(kk, "，")
For x = 0 To UBound(arr) - 1
For y = x + 1 To UBound(arr)
If arr(x) > arr(y) Then
kkk = arr(y)
arr(y) = arr(x)
arr(x) = kkk
End If
Cells(a, 2) = Join(arr, "，")
Next y
Next x
Next a
End Sub

不会vba那就数据分裂然后用small函数从小到大排列，结果复制到word中把空格替换为逗号然后再复制回excel即可