Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2606|回复: 4

[已解决]如何用数组排序,因速度太慢

[复制链接]
发表于 2015-3-31 00:06 | 显示全部楼层 |阅读模式
如何用数组排序,因速度太慢.rar (7.19 KB, 下载次数: 21)
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2015-3-31 08:04 | 显示全部楼层
  1. Sub test()
  2.     Dim arr, brr(), i%, j%, m%, n%, s&
  3.     arr = Sheet6.UsedRange
  4.     ReDim brr(6 To UBound(arr), 1 To 4)
  5.     For i = 6 To UBound(arr)
  6.         If Len(arr(i, 1)) = 0 Then Exit For
  7.         s = Val(arr(i, 1))
  8.         For m = 6 To i - 1
  9.             If brr(m, 1) > s Then
  10.                 For n = i To m + 1 Step -1
  11.                     For j = 1 To 4
  12.                         brr(n, j) = brr(n - 1, j)
  13.                     Next
  14.                 Next
  15.                 Exit For
  16.             End If
  17.         Next
  18.         brr(m, 1) = s
  19.         For j = 2 To 4
  20.             brr(m, j) = arr(i, j)
  21.         Next
  22.     Next
  23.     [a6:d999] = ""
  24.     [a6:d999].NumberFormat = "@"
  25.     [a6].Resize(UBound(brr) - 6, 4) = brr
  26. End Sub
复制代码
工作簿4.rar (10.09 KB, 下载次数: 9)

点评

ls
这么多循环,没有看明白,谢谢参与  发表于 2015-3-31 23:01

评分

参与人数 1 +6 收起 理由
ls + 6 参与奖励

查看全部评分

回复

使用道具 举报

发表于 2015-3-31 10:51 | 显示全部楼层    本楼为最佳答案   
按原序的倒序排,是这个意思吧?
  1. Sub test()
  2.     Dim arr, brr(), i%, j%, m%, n%, s&
  3.     With Sheet6
  4.         r = .[a65536].End(3).Row
  5.         arr = .Range("a6:d" & r)
  6.         ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
  7.         For i = UBound(arr) To 1 Step -1
  8.             k = k + 1
  9.             For j = 1 To UBound(arr, 2)
  10.                 brr(k, j) = arr(i, j)
  11.             Next
  12.         Next
  13.         .Range("a6:d" & r) = brr
  14.     End With
  15. End Sub
复制代码

评分

参与人数 1 +15 收起 理由
ls + 15 赞一个!

查看全部评分

回复

使用道具 举报

发表于 2015-3-31 23:32 | 显示全部楼层
本帖最后由 雪舞子 于 2015-3-31 23:35 编辑

这是标准的插入法排序,

虽然有循环却是必不可少的的,

可以将杂乱无章的顺序迅速的排好,

并不是简单的颠倒一个顺序。
回复

使用道具 举报

 楼主| 发表于 2015-4-1 02:08 | 显示全部楼层
雪舞子 发表于 2015-3-31 23:32
这是标准的插入法排序,

虽然有循环却是必不可少的的,

能不能解释下,让我学习下
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 07:42 , Processed in 0.455434 second(s), 14 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表