ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 17897|回复: 12

[求助] 想从一个几千条记录的EXCEL表中随机提取100条记录而不重复

[复制链接]

TA的精华主题

TA的得分主题

发表于 2009-10-29 20:49 | 显示全部楼层 |阅读模式
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
我想从一个4千条记录的EXCEL表中随机提取100条记录而不重复
例如从下列数据中提取3个上市公司,注意到证券代码有可能相同,如果相同则随机抽取到了深发展A的话,就要都把这4条记录都提取出来,因为是一个公司。
换句话说,我的目标就是随机抽取抽取100家上市公司。有些公司的数据不止一条(像深发展、ST国农等),那么抽取的记录数可能就不止一百条(如果抽到深发展这种公司)。怎么做到?我不知道怎么办,能不能讲得细致一点。多谢了!!!!!高人自有妙招,期待高人。方法可以是菜单操作,数据透视表或者编程、宏代码,总之,越简单越好。
关键要做到的几点是:随机、不重复、100条(或者给定的N条)、代码相同的要一次都取出来,不能只取其中一条。

证券代码                 名称    行业            金额               占比(%)        增长率(%)        金额        占比(%)        增长率(%)
000001.SZ        深发展A        贷款        705,667.96         82.87         -1.65                        
000001.SZ        深发展A        债券投资        82,453.75         9.68         17.45                        
000001.SZ        深发展A        拆借、存放等同业业务        82,330.80         9.67         28.57                        
000001.SZ        深发展A        其他业务        63,563.25         7.46         25.14                        
000002.SZ        万科A        房地产开发与经营业        1,037,905.22         98.30         39.07         672,020.82         97.61         31.28
000004.SZ        *ST国农        制药业        3,606.18         58.75         -49.15         2,336.21         63.07         -58.73
000004.SZ        *ST国农        IT业及技术服务        2,531.50         41.25         -29.35         1,368.01         36.93         8.95
000005.SZ        世纪星源        租赁服务业        2,994.34         65.96         -11.63         1,378.91         48.87         -27.43

2005年行业营业收入.rar

211.02 KB, 下载次数: 65

TA的精华主题

TA的得分主题

 楼主| 发表于 2009-10-29 20:52 | 显示全部楼层

回复 1楼 郑太顺 的帖子

自己顶一下,高人在哪里!!!!呵呵,刚才忘记说了,结果还是能保存到EXCEL中

TA的精华主题

TA的得分主题

发表于 2009-10-29 21:18 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
可以用高级筛选的。

TA的精华主题

TA的得分主题

 楼主| 发表于 2009-10-29 22:08 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助

不知道如何操作

原帖由 wddn 于 2009-10-29 21:18 发表
可以用高级筛选的。


如何筛选啊,能不能针对附件讲得细致一点??不但要随机还要 不重复还要那么多条件,不知道如何做啊,我已经给出附件了,能不能具体点????

TA的精华主题

TA的得分主题

发表于 2009-10-29 22:43 | 显示全部楼层
先搞出不重复的,再搞随机筛选

TA的精华主题

TA的得分主题

 楼主| 发表于 2009-10-30 20:17 | 显示全部楼层

还是达不到我的要求怎么办

原帖由 wuxiang_123 于 2009-10-30 13:20 发表
直接用陈版的附件就可以了。
http://club.excelhome.net/viewthread.php?tid=12570

陈版主的附件中,随机值取的范围是1-35,我要求取100个,它只能生成随机不重复的行,我要求生成随机不重复但又“重复”的行,前面一个不重复是指公司不重复,后面一个“重复”是指如果一个公司有多条记录,就都要同时选中。
谢谢

TA的精华主题

TA的得分主题

发表于 2009-10-30 13:20 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
直接用陈版的附件就可以了。
http://club.excelhome.net/viewthread.php?tid=12570

TA的精华主题

TA的得分主题

发表于 2009-10-30 14:26 | 显示全部楼层
w2005年行业营业收入.rar (338.35 KB, 下载次数: 196)

点排序后,把S列到100就是你想要的结果了。

TA的精华主题

TA的得分主题

 楼主| 发表于 2009-10-30 20:24 | 显示全部楼层

非常感谢,但是不能在我的电脑上运行

原帖由 水平一般 于 2009-10-30 14:26 发表
605836

点排序后,把S列到100就是你想要的结果了。

非常感谢,我看出来你用了宏试图帮助我解决问题,但是可惜在我的电脑上不能运行,提示运行时错误438,对象不支持该属性或方法,请问是不是我的电脑里要安装什么软件?
我的电脑里的OFFICE系列是2003,每个子软件都是完全安装的。

TA的精华主题

TA的得分主题

发表于 2009-10-30 21:25 | 显示全部楼层
我也是录了宏后修改的,对代码也不是太懂。不知这个438代表什么?
另:我是用2007在2003格式表中录的。
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-11-28 04:37 , Processed in 0.055135 second(s), 10 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

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