如何对一组数据排序

向前650809

如何对一组数据排序，由大到小或由小到大，如有n个数据，也可以说是对含有n个数据的数组进行排序。
请网友指导写出代码，谢谢

zjdh

你自己搜索一下，多得很！

林木水123

1. Sub 冒泡排序_大到小()
   
2. Dim arr, i As Integer, j As Integer, temp
   
3. arr = Sheet1.Range("a2:a26")
   
4. For i = 1 To UBound(arr) - 1
   
5.     temp = arr(i, 1)
   
6.     For j = i + 1 To UBound(arr)
   
7.         If temp < arr(j, 1) Then
   
8.             temp = arr(j, 1) 'temp装最大值
   
9.             arr(j, 1) = arr(i, 1)
   
10.             arr(i, 1) = temp
    
11.         End If
    
12.     Next
    
13. Next
    
14. Sheet1.Range("B2:B26") = arr
    
15. End Sub
    
16. Sub 冒泡排序_小到大()
    
17. Dim arr, i As Integer, j As Integer, temp
    
18. arr = Sheet1.Range("a2:a26")
    
19. For i = 1 To UBound(arr) - 1
    
20.     temp = arr(i, 1)
    
21.     For j = i + 1 To UBound(arr)
    
22.         If temp > arr(j, 1) Then
    
23.             temp = arr(j, 1) 'temp装最小值
    
24.             arr(j, 1) = arr(i, 1)
    
25.             arr(i, 1) = temp
    
26.         End If
    
27.     Next
    
28. Next
    
29. Sheet1.Range("c2:c26") = arr
    
30. End Sub

复制代码

林木水123

最简单的冒泡排序，了解一下。来之兰色幻想老师教学