第1个回答 2013-01-12
假设:如果格式统一:00+空格+00+空格+00……样式
假设原始数据在A1单元格,B1单元格公式:
=TEXT(SUM(SMALL(--MID(A1,(ROW(INDIRECT("$1:$"&(LEN(A1)+1)/3))-1)*3+1,2),ROW(INDIRECT("$1:$"&(LEN(A1)+1)/3)))*10^(2*(LEN(A1)+1)/3-ROW(INDIRECT("$1:$"&(LEN(A1)+1)/3))*2)),REPT("00 ",(LEN(A1)+1)/3))
数组公式:复制公式,粘贴到B1单元格,鼠标点击公式的任意位置,ctrl+shift+enter组合键录入
格式柄下拉复制公式
第2个回答 2013-01-12
要在本单元格中排列吗?比如你的数据在A列
用VBA方法处理
代码如下
Sub test()
Dim arr, brr, x&, y&, i&, k
arr = Range("A1:A" & Range("A65536").End(xlUp).Row)
For x = 1 To UBound(arr)
brr = Split(arr(x, 1), " ")
For y = 0 To UBound(brr) - 1
For i = y + 1 To UBound(brr)
If brr(y) > brr(i) Then
k = brr(y)
brr(y) = brr(i)
brr(i) = k
End If
Next i
Next y
arr(x, 1) = Join(brr, " ")
Next x
Range("A1").Resize(UBound(arr)) = arr
End Sub
运行此宏,整列都处理完成了。本回答被网友采纳