单元格内多组数如何排序

有4地

jiangxiaoyun

1. Sub vfvfvf()
   
2.     Dim arr
   
3.     arr = Range("a2:b" & [a1024768].End(3).Row)
   
4.     For i = 1 To UBound(arr)
   
5.         If InStr(arr(i, 1), "、") > 0 Then
   
6.             s = Split(arr(i, 1), "、")
   
7.             For x = 0 To UBound(s) - 1
   
8.                 For y = x + 1 To UBound(s)
   
9.                 x1 = Val(s(x))
   
10.                 y1 = Val(s(y))
    
11.                     If x1 < y1 Then
    
12.                         temp = x1
    
13.                         s(x) = y1
    
14.                         s(y) = temp
    
15.                     End If
    
16.                 Next
    
17.             Next
    
18.             arr(i, 2) = Join(s, "、")
    
19.         Else
    
20.             arr(i, 2) = arr(i, 1)
    
21.         End If
    
22.     Next
    
23.     [a2].Resize(UBound(arr), 2) = arr
    
24. End Sub
    

复制代码

jiangxiaoyun

明细表.zip (26.28 KB, 下载次数: 19)

2018-1-17 10:03 上传

点击文件名下载附件

有4地

jiangxiaoyun 发表于 2018-1-17 10:03

非常感谢 大佬