|
本帖最后由 laoau138 于 2017-5-8 08:03 编辑
VBA数组把相邻两个数字两两相减 取绝对值再来排序2
本帖最后由 france723 于 2017-5-7 23:46 编辑
还是用你熟悉的冒泡排序给你写的 - Sub aaa()
- Dim y, ar, i, br, j, n, p, q
- y = Range("a65536").End(3).Row
- ar = Range("a1:h" & y)
- For j = 1 To UBound(ar)
- ReDim br(1 To 1)
- n = 0
- For i = 3 To 7
- n = n + 1
- ReDim Preserve br(1 To n)
- br(n) = Abs(ar(j, i) - ar(j, i + 1))
- Next i
- For p = UBound(br) - 1 To 1 Step -1
- For q = 1 To p
- If br(q) > br(q + 1) Then
- br(q) = br(q) + br(q + 1)
- br(q + 1) = br(q) - br(q + 1)
- br(q) = br(q) - br(q + 1)
- End If
- Next q
- Next p
- Range("j" & j).Resize(1, 5) = br
- Next j
- End Sub
复制代码
|
|