[已解决]VBA数组倒重新排序一次

laoau138

VBA数组倒重新排序一次

最佳答案

月排行榜 / 总排行榜

france723

2017-5-3 17:43

你之前不是问过冒泡排序, 就按照冒泡程序给你写

1. Sub aaa()
   
2. Dim br, i, j
   
3. br = Range("k16:aq17")
   
4. For i = 33 - 1 To 1 Step -1
   
5.     For j = 1 To i
   
6.         If br(2, j) < br(2, j + 1) Then
   
7.             br(2, j) = br(2, j) + br(2, j + 1)
   
8.             br(2, j + 1) = br(2, j) - br(2, j + 1)
   
9.             br(2, j) = br(2, j) - br(2, j + 1)
   
10.             br(1, j) = br(1, j) + br(1, j + 1)
    
11.             br(1, j + 1) = br(1, j) - br(1, j + 1)
    
12.             br(1, j) = br(1, j) - br(1, j + 1)
    
13.         End If
    
14.     Next j
    
15. Next i
    
16. Range("k21").Resize(UBound(br), 33) = br
    
17. End Sub

复制代码

跳转到最佳答案楼层

france723

你之前不是问过冒泡排序, 就按照冒泡程序给你写

1. Sub aaa()
   
2. Dim br, i, j
   
3. br = Range("k16:aq17")
   
4. For i = 33 - 1 To 1 Step -1
   
5.     For j = 1 To i
   
6.         If br(2, j) < br(2, j + 1) Then
   
7.             br(2, j) = br(2, j) + br(2, j + 1)
   
8.             br(2, j + 1) = br(2, j) - br(2, j + 1)
   
9.             br(2, j) = br(2, j) - br(2, j + 1)
   
10.             br(1, j) = br(1, j) + br(1, j + 1)
    
11.             br(1, j + 1) = br(1, j) - br(1, j + 1)
    
12.             br(1, j) = br(1, j) - br(1, j + 1)
    
13.         End If
    
14.     Next j
    
15. Next i
    
16. Range("k21").Resize(UBound(br), 33) = br
    
17. End Sub

复制代码

laoau138

france723 发表于 2017-5-3 17:43
你之前不是问过冒泡排序, 就按照冒泡程序给你写

这个横向排序

france723

laoau138 发表于 2017-5-3 18:03
这个横向排序

一样的, 我就是在数组坐标上做了手脚

laoau138

france723 发表于 2017-5-3 18:09
一样的, 我就是在数组坐标上做了手脚

VBA如何把一列数字分开


http://www.excelpx.com/thread-429899-1-1.html