你之前不是问过冒泡排序, 就按照冒泡程序给你写- Sub aaa()
- Dim br, i, j
- br = Range("k16:aq17")
- For i = 33 - 1 To 1 Step -1
- For j = 1 To i
- If br(2, j) < br(2, j + 1) Then
- br(2, j) = br(2, j) + br(2, j + 1)
- br(2, j + 1) = br(2, j) - br(2, j + 1)
- br(2, j) = br(2, j) - br(2, j + 1)
- br(1, j) = br(1, j) + br(1, j + 1)
- br(1, j + 1) = br(1, j) - br(1, j + 1)
- br(1, j) = br(1, j) - br(1, j + 1)
- End If
- Next j
- Next i
- Range("k21").Resize(UBound(br), 33) = br
- End Sub
复制代码
|