[已解决]排序的问题....请求帮助

要学习vba

排序的问题....请求帮助


附件下载::::::::::: 12-31.rar (5.34 KB, 下载次数: 15)

2013-12-31 15:08 上传

点击文件名下载附件

对B列的数据 从小到大排序...


例如
B1=08 03 07 09 10
B2=06 04 11 10 02

要求VBA代码运算的结果为:

B1=03 07 08 09 10
B2=02 04 06 10 11

最佳答案

月排行榜 / 总排行榜

xdragon

2013-12-31 16:05

1. Sub 排序()
   
2.   Dim arr, brr, br, tmp, i&, j%, k%
   
3.   arr = Range("B1:B" & Cells(Rows.Count, 2).End(3).Row).Value
   
4.   For i = 1 To UBound(arr)
   
5.     brr = Split(arr(i, 1), " ")
   
6.     For j = 0 To UBound(brr) - 1
   
7.       For k = 0 To UBound(brr) - 1
   
8.         If brr(k) > brr(k + 1) Then
   
9.           tmp = brr(k)
   
10.           brr(k) = brr(k + 1)
    
11.           brr(k + 1) = tmp
    
12.         End If
    
13.       Next
    
14.     Next
    
15.     arr(i, 1) = Join(brr)
    
16.   Next
    
17.   Range("B1:B" & UBound(arr)) = arr
    
18. End Sub
    

复制代码

跳转到最佳答案楼层

xdragon

1. Sub 排序()
   
2.   Dim arr, brr, br, tmp, i&, j%, k%
   
3.   arr = Range("B1:B" & Cells(Rows.Count, 2).End(3).Row).Value
   
4.   For i = 1 To UBound(arr)
   
5.     brr = Split(arr(i, 1), " ")
   
6.     For j = 0 To UBound(brr) - 1
   
7.       For k = 0 To UBound(brr) - 1
   
8.         If brr(k) > brr(k + 1) Then
   
9.           tmp = brr(k)
   
10.           brr(k) = brr(k + 1)
    
11.           brr(k + 1) = tmp
    
12.         End If
    
13.       Next
    
14.     Next
    
15.     arr(i, 1) = Join(brr)
    
16.   Next
    
17.   Range("B1:B" & UBound(arr)) = arr
    
18. End Sub
    

复制代码