使用数组法做排序处理

天地一相

感谢帮助，详见截图和附件。

liulang0808

无关岁月

Sub 按钮1_Click()
Dim arr, i, j, k
arr = [a3].CurrentRegion
For i = 1 To UBound(arr)
    For j = i + 1 To UBound(arr)
        If arr(i, 4) < arr(j, 4) Then
            For k = 1 To UBound(arr, 2)
                t = arr(j, k): arr(j, k) = arr(i, k): arr(i, k) = t
            Next
        End If
    Next
Next
[f3].Resize(UBound(arr), UBound(arr, 2)) = arr
End Sub

ykcbf1100

冒泡排序

ykcbf1100

参与一下。。。

一招秒杀

就这还要写一大堆代码？ 菜单里的  数据 下面 不是有个排序吗，按降序就好了，还不容易出错，点点鼠标就瞬间秒杀，它不香吗？

ykcbf1100

一招秒杀 发表于 2024-9-29 20:46
就这还要写一大堆代码？ 菜单里的  数据 下面 不是有个排序吗，按降序就好了，还不容易出错，点点鼠标就瞬 ...

是数组排序，你整一个？

一招秒杀

ykcbf1100 发表于 2024-9-29 20:48
是数组排序，你整一个？

我已经失去了 手写 排序  能力 几十年了 。

今铭昔

zhangcheng6688

无关岁月 发表于 2024-9-29 20:10
Sub 按钮1_Click()
Dim arr, i, j, k
arr = [a3].CurrentRegion

bubble排序