如何在一张表格中随机抽取多行数据?
1、如果数据在Sheet2 的A:D列,在Sheet2的A列前插入两列辅助列;
2、在左上角的名称框中,输入A2:A953,按Enter键,将A2:A953单元格选中,输入=RAND(),按Ctrl+Enter组合键结束,快速向A2:A953单元格中输入随机数(随机数的重复机率极低);
3、在B2单元格输入以下公式,然后向下填充公式,得到A列数据的排名(同样没有重复排名)
=RANK(A2,A:A)
4、在Sheet1的A2单元格输入以下公式,然后向右向下填充公式到D361单元格,得到由Sheet2工作表中随机取得的不重复的360行数据
=VLOOKUP(ROW()-1,Sheet2!$B:$F,COLUMN(B1),0)
公式表示:以当前行号在Sheet2的B列精确匹配对应行,并返回对应第2列(Sheet2的C列)数据。
5、因随机取数时,工作表只要输入一个数据,就会在“自动计算”中 重新得到一组数据,因此,可以将Sheet2的A列,“复制”并“选择性粘贴”为“数值”,避免数据不断变换。或者将“公式”选项中的“计算选项”设置为“手动”。
6、注意:通过RANDBETWEEN函数得到随机函数的方法,会出现重复数据,从而达不到既随机又唯一取数的目的,没有RAND得到一列不重复的随机数再排名来得科学有效。
绛旓細鍦╡xcel涓紝灏嗘瘡琛屾暟鎹殑杈撳嚭涓涓涓鐙珛鐨勬枃鏈枃浠秚xt鍙敤濡備笅浠g爜鍙互瀹炵幇锛歅rivate Sub CommandButton1_Click()Application.ScreenUpdating = False '鍏抽棴灞忓箷鍒锋柊 Dim nRow&, ncolumn& '瀹氫箟鍖哄煙鍙橀噺 nRow = Cells(Rows.Count, 1).End(3).Row '纭畾鏈鍚琛岃鍙 For i = 1 To nRow '鍦ㄨ涓繘琛...
绛旓細鍦6000琛岀殑绗竴鍒楀墠鎻掑叆涓鍒闅忔満鏁銆傚亣璁炬彃鍏ョ殑鍒楁槸A鍒楋紝A1杈撳叆 =rand() 鍚庡弻鍑诲~鍏呮焺 鍦ㄩ渶瑕1000琛岀殑鍦版柟杈撳叆鍏紡 =vlookup(large($a:$a,row(a1)),$a:$o,column(b1),)鍚戝彸鍚戜笅濉厖
绛旓細鏉ヨ嚜涓浣嶅鍛樼殑闂锛孉BC鍒楁槸鏁版嵁婧愶紝鐜板湪鎯宠鎻愬彇鍙屾湀鐨勬暟鎹瓨鏀惧湪EFG鍒椼傚鍛樺張涓嶄細鍑芥暟鍏紡锛屾庝箞鍋氭墠濂藉憿锛熷ぇ瀹跺府鍔╂兂鎯冲姙娉曪紒缁欏埌涓涓寤鸿锛屽彲浠ヨ冭檻宸у熸煡鎵炬浛鎹㈡潵瀹屾垚銆傚ぇ姒傜殑鎿嶄綔姝ラ濡備笅锛氱涓姝ワ紝E2鍗曞厓鏍艰緭鍏3锛孍3鍗曞厓鏍艰緭鍏5锛岀劧鍚庡悓鏃堕変腑涓や釜鍗曞厓鏍煎悜涓嬫嫋鍔ㄥ埌E7鍗曞厓鏍笺傜浜屾锛岄夋嫨E2...
绛旓細=OFFSET($A$1:$D$1,RANDBETWEEN(0,COUNTA(A:A)-1),)娉ㄦ剰鏄暟缁勫叕寮忥紝Ctrl+Shift+鍥炶溅锛屾敞鎰忔煡鐪嬪姩鐢讳腑涓嬫柟鎸夐敭鎻愮ず銆
绛旓細鍋囪浣爏heet1鏈248琛屾暟鎹粠A鍒楀埌F鍒 sheet2 A1杈撳叆 =rand()鍚戜笅濉厖鍒248琛 B1杈撳叆 =rank(a1,$a$1:$a$248)鍚戜笅濉厖鑷50琛 C1杈撳叆鍏紡 =index(sheet1!a:a,$b1,1)鍚戝彸濉厖鑷矵鍒 鐒跺悗鍚戜笅濉厖鑷50琛 C1-H50鑼冨洿灏辨槸闅忔満鎻愬彇鍑烘潵鐨勬暟鎹 涓嶈繃鏁版嵁鏃堕殢鏈虹殑锛鍦ㄨ〃鏍煎唴鍋氫换鎰忎慨鏀硅緭鍏ラ兘浼氬彉...
绛旓細濡傛灉浣犵殑鍘熷鏁版嵁鍦╝鍒楋紝涓斿彧鏈10涓鏁帮紝閭d箞鍦╞1涓緭鍏 =indirect("a"&randbetween(1,10))涓嬫媺3涓嵆鍙傝嫢a鍒楁湁100涓紝閭d箞锛屽叕寮忎腑锛1,10锛夋敼涓猴紙1,100锛夊嵆鍙備笉鏄庣櫧杩介棶
绛旓細1銆侀鍏堟墦寮闇瑕佺紪杈戠殑Excel琛ㄦ牸锛岀偣鍑绘墦寮寮鍙戝伐鍏蜂腑鐨勨滃姞杞介」鈥濄2銆佺劧鍚庡湪寮瑰嚭鏉ョ殑绐楀彛涓偣鍑婚夋嫨鈥滃垎鏋愬伐鍏峰簱鈥濓紝鍥炶溅纭畾銆3銆佺劧鍚庡湪寮瑰嚭鏉ョ殑绐楀彛涓偣鍑绘墦寮鏁版嵁涓殑鈥滄暟鎹垎鏋愨濄4銆佺劧鍚庡湪寮瑰嚭鏉ョ殑绐楀彛涓偣鍑婚夋嫨鈥滄娊鏍封濓紝鍥炶溅纭畾銆5銆佺劧鍚庣偣鍑烩滆緭鍏ュ尯鍩熲濋夋嫨瑕佹娊鏍风殑鏁版嵁鍖哄煙锛闅忔満鏍锋湰鏁伴夋嫨...
绛旓細鍦ㄦ柊鐨勪竴鍒楅噷杈撳叆=RAND()锛屼竴鐩翠笅鎷夊埌鏈鍚庯紝鍐嶆帓搴忥紝鍙栧墠闈1000涓
绛旓細鍋囧畾鍘熸暟鎹琛鏄痵heet1 鍦╯heet2鐨凙2杈撳叆鍏紡锛=OFFSET(Sheet1!$A$2,5*(ROW(A1)-1),COLUMN(A1)-1) 鍙虫媺濉厖锛屽啀涓璧蜂笅鎷夊~鍏 鎴 =INDEX(Sheet1!A:A,5*(ROW(A1)-1)+2) 鍙虫媺濉厖锛屽啀涓璧蜂笅鎷夊~鍏
绛旓細C1 =INDEX(A:A,MATCH(SMALL(B:B,ROW(A1)),B:B,0))锛岃繖鏍峰悜涓嬪鍒30 涓 锛岃繖鏍蜂綘姣忔寜涓娆9 锛屽氨寰楀埌 涓缁30涓紝 闅忔満鍙栧緱鐨勬暟鎹傚叿浣撳涓嬶細1銆佺畝浠 EXCEL琛澶勭悊杞欢鏄編鍥藉井杞叕鍙哥爺鍒剁殑鍔炲叕鑷姩鍖栬蒋浠禣FFICE 涓殑閲嶈鎴愬憳锛岀粡杩囧娆℃敼杩涘拰鍗囩骇锛屾渶鏂扮増鏈负EXCEL2000銆傚畠鑳藉鏂逛究鐨勫埗浣滃嚭鍚勭...