冒泡排序-按行由小到大排序

yshcy

按行对从B列到G列的数据从小到大进行排序。请老师们把我的代码改下，能讲解下错误原因就更好了，谢谢。

小凡、、、

第一个循环-1会避开最后一行，其次循环处理排序的逻辑不对

yshcy

小凡、、、 发表于 2024-6-4 19:34
第一个循环-1会避开最后一行，其次循环处理排序的逻辑不对

能否把代码成正确的？

ykcbf1100

yshcy 发表于 2024-6-4 19:36
能否把代码成正确的？

以哪一列为主排序啊？

小凡、、、

yshcy 发表于 2024-6-4 19:36
能否把代码成正确的？

循环三维数组至少需要三层循环

yshcy

ykcbf1100 发表于 2024-6-4 19:40
以哪一列为主排序啊？

对各行数据从小到大进行排序，就是每一行进行排序。新的一行按新的由小到大进行排序。

ykcbf1100

yshcy 发表于 2024-6-4 19:44
对各行数据从小到大进行排序

同一行中数据按从小到大排序？

yshcy

ykcbf1100 发表于 2024-6-4 19:45
同一行中数据按从小到大排序？

是的是的。

baofa2

1. Sub test0()
   
2.   Dim ar, i As Long
   
3.   ar = Range("A1").CurrentRegion.Value
   
4.   For i = 1 To UBound(ar)
   
5.     BubbleSort ar, 2, UBound(ar, 2), i
   
6.   Next
   
7.   Range("K1").Resize(UBound(ar), UBound(ar, 2)) = ar
   
8. End Sub
   
9. 
   
10. Function BubbleSort(ar, l As Long, u As Long, pos As Long)
    
11.   Dim i As Long, j As Long, Flag As Boolean, swap
    
12.   For i = l To u - 1
    
13.     Flag = True
    
14.     For j = l To u + l - 1 - i
    
15.       If ar(pos, j) > ar(pos, j + 1) Then
    
16.         Flag = False
    
17.         swap = ar(pos, j)
    
18.         ar(pos, j) = ar(pos, j + 1)
    
19.         ar(pos, j + 1) = swap
    
20.       End If
    
21.     Next
    
22.     If Flag = True Then Exit For
    
23.   Next
    
24. End Function
    

复制代码

ykcbf1100

数组排序。。。