返回列表 上一主題 發帖

[發問] EXCEL 抽樣

ML089

帖子
2025 
主題
13 
精華
0 
積分
2053 
點名
0  
作業系統
WIN7 
軟體版本
Office2007 
閱讀權限
100 
性別
男 
來自
台北市 
註冊時間
2011-3-2 
最後登錄
2024-3-14 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章2014馬年全勤獎章2015羊年全勤獎章2016猴年全勤獎章
1# 跳轉到 »
發表於 2014-12-29 14:54 | 顯示全部帖子
每個工作表為958欄*1226列，共16個工作表
這資料量很大，使用公式會跑很久
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

ML089

帖子
2025 
主題
13 
精華
0 
積分
2053 
點名
0  
作業系統
WIN7 
軟體版本
Office2007 
閱讀權限
100 
性別
男 
來自
台北市 
註冊時間
2011-3-2 
最後登錄
2024-3-14 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章2014馬年全勤獎章2015羊年全勤獎章2016猴年全勤獎章
2#
發表於 2014-12-29 17:47 | 顯示全部帖子
16個分頁皆有958欄1226列的數據，要隨機抽出500筆.rar (247.34 KB)
資料指模擬3個工作簿，公式只放3欄，請參考
資料及公式設好後，按F9重新計算(目前設為手動計算)，然後去喝杯咖啡看個影片。


1. 工作表A，是找出Sheet1~16同位置沒有 -9999者，填上 RAND()       
A1 =IF(OR(N(INDIRECT("sheet"&ROW($1:$16)&"!rc",))=-9999),"",RAND())       
陣列公式，下拉右拉       
       
2. 工作表B，由工作表A找出前500大，並轉為行列位置(列*10^4+行)       
A1 =IF(A!A1="","",IF(RANK(A!A1,INDIRECT("A!R1C1:R1226C958",))>500,"",ROW()*10^4+COLUMN()))       
下拉右拉       
       
3. 工作表C，A欄將工作表B中以SMALL依順序取出，B欄~Q欄就為Sheet1~Sheet16的資料       
A2 =SMALL(INDIRECT("B!R1C1:R1226C958",),ROW()-1)       
下拉       
B2 =INDIRECT("Sheet"&B$1&"!"&TEXT($A2,"!R0!C0000"),)       
下拉右拉       
       
       
注意! 公式計算改為手動，資料修改好按F9重新計算
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

        靜思自在 : 為自己找藉口的人永遠不會進步。
返回列表 上一主題