排序、分类、随机取样

颜武 2016-03-28 05:16:39

我有很多数据，从A1:H2000,现在想按E列进行排序。
排序已经处理好。如下。
Private Sub CommandButton1_Click()
Columns("E:E").Select
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("E1"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").Sort
.SetRange Range("A1:H2000")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
H列现在有很多个数是相同的，我现在想将H列中相同值的行随机按2%进行抽样，并将抽样出来的行存到另一个单元薄中。要如何进行编写。

...全文

806 1 打赏收藏转发到动态举报

写回复

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

颜武 2016-03-30

打赏
举报

回复

怎么没有人回呢，是我发的地方不对吗？

前天因为工作需要我把从一个5W记录的数据库中随机抽取几条记录了，这里我是直接使用mysql rand by函数来直接，几千条记录没关系，但如果到了几万条感觉要几秒，这个就很慢了，下面小编与大家一起来看看mysql 取随机数据慢优化过程。MySQL很多时候需要获取随机数据，举个例子，要从tablename表中随机提取一条记录，大家一般的写法就是：代码如下:SELECT * FROM tablename ORDER BY RAND() LIMIT 1 但是，后来我查了一下MYSQL的官方手册，里面针对RAND()的提示大概意思就是，在ORDER BY从句里面不能使用RAND()函数，因为这样会导

为了研究复垦耕地土壤微生物种群特征,采用随机取样法对不同复垦方法、复垦的耕地和林地进行取样,采用计数法对土壤细菌、放线菌、真菌进行了定性和定量分析,结果表明:复垦林地的细菌数量显著高于复垦耕地和对照耕地,而放线菌和真菌数量则与此相反;在几种复垦耕地中,土壤细菌、放线菌、真菌数量排序基本一致,都表现为对照耕地大于就地取土复垦耕地大于煤矸石充填复垦耕地。说明复垦耕地的土壤环境与对照耕地相比,还有一定差距,特别是煤矸石充填法复垦的耕地土壤更需进一步改良。

第一部分编程技术第1章性能监视工具 3 1.1 计算素数 3 1.2 使用性能监视工具 7 1.3 一个专用的性能监视工具 8 1.4 开发性能监视工具 10 1.5 原理 11 1.6 习题 11 1.7 深入阅读 12 第2章关联数组 13 2.1 Awk中的关联数组 13 2.2 有穷状态机模拟器 16 2.3 拓扑排序 17 2.4 原理 20 2.5 习题 21 2.6 深入阅读 22 第3章程序员的忏悔 23 3.1 二分搜索 24 3.2 选择算法 26 3.3 子程序库 28 3.4 原理 30 3.5 习题 31 第4章自描述数据 33 4.1 名字—值对 33 4.2 记录来历 36 4.3 排序实验 37 4.4 原理 39 4.5 习题 39 第二部分实用技巧第5章劈开戈尔迪之结 43 5.1 小测验 43 5.2 解答 44 5.3 提示 44 5.4 原理 47 5.5 习题 48 5.6 深入阅读 49 5.7 调试（边栏） 49 第6章计算机科学箴言集 51 6.1 编码 52 6.2 用户界面 53 6.3 调试 53 6.4 性能 54 6.5 文档 56 6.6 软件管理 56 6.7 其他 58 6.8 原理 58 6.9 习题 58 6.10 深入阅读 60 第7章粗略估算 61 7.1 头脑热身 61 7.2 性能的经验法则 62 7.3 Little定律 64 7.4 原理 65 7.5 习题 66 7.6 深入阅读 67 7.7 日常速算（边栏） 67 第8章人员备忘录 69 8.1 备忘录 69 8.2 原理 71 8.3 深入阅读 71 第三部分人性化I/O 第9章小语言 75 9.1 Pic语言 76 9.2 视角 79 9.3 Pic预处理器 81 9.4 用来实现Pic的小语言 83 9.5 原理 87 9.6 习题 88 9.7 深入阅读 89 第10章文档设计 91 10.1 表格 92 10.2 三条设计原则 94 10.3 插图 94 10.4 文本 96 10.5 合适的媒介 98 10.6 原理 100 10.7 习题 101 10.8 深入阅读 101 10.9 次要问题目录（边栏） 101 第11章图形化输出 103 11.1 实例研究 103 11.2 显示结果取样 105 11.3 原理 107 11.4 习题 108 11.5 深入阅读 110 11.6 拿破仑远征莫斯科（边栏） 110 第12章对调查的研究 113 12.1 有关民意调查的问题 113 12.2 语言 114 12.3 图片 117 12.4 原理 119 12.5 习题 120 第四部分算法第13章绝妙的取样 123 13.1 取样算法一瞥 123 13.2 Floyd算法 124 13.3 随机排列 125 13.4 原理 127 13.5 习题 127 13.6 深入阅读 128 第14章编写数值计算程序 129 14.1 问题 129 14.2 牛顿迭代 130 14.3 良好的起点 132 14.4 代码 133 14.5 原理 135 14.6 习题 135 14.7 深入阅读 137 14.8 数值算法的力量（边栏） 137 第15章选择 141 15.1 问题 141 15.2 程序 142 15.3 运行时间分析 145 15.4 原理 148 15.5 习题 149 15.6 深入阅读 151 附录A C和Awk语言 153 附录B 一个子程序库 157 部分习题答案 165 索引 181

有时候我们可能需要随机的将一些的数字或者其他的元素进行随机的抽取，或者随机的排序，这里他们的本质是一样的。或者随机的排序我们也可以看作是不放回的随机取样。因为我们随机排序的每一个元素的顺序都是随机的。相当于每一个元素都是模拟的随机抽取。大家可能在科研的过程中用到。这里从百度知道里可以搜索到答案，这里稍作整理，以便后来的应用。程序内容如下，大家根据需要自己修改，用到的是perl的List：：

快速排序是一种高效的排序算法，通过选择基准元素，将数组分成两个子数组，并递归排序子数组，最终将它们合并。为了提高性能，可以采用随机取样、三数取中、插入排序等优化策略。

Office开发/ VBA

5,139

社区成员

17,886

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章