Re: [算表] 如何亂數選取並貼上至空白excel中?

看板Office作者Rplus (R+)時間15年前 (2011/03/25 02:35)推噓0(0推 0噓 0→)

留言0則, 0人參與討論串2/2 (看更多)

動作： (假設有51個xls檔案) 前情提要：因為不才太弱了寫不出正確的檔案間引用語法所以要把所有資料匯到同一份檔案裡這會有excel當掉的危險... 我有試過51個檔案合併了似乎沒當掉XDDD 若你也有同樣的勇氣，請繼續~~~ 1. 把所有要整理的xls全copy一份到一個資料夾 (原始檔留著，畢竟不曉得會不會做到檔案全毀XD) 2. 用個重新命名的軟體，命名成1~51.xls (個人習用ReNamer http://www.den4b.com/?x=downloads ) 3. http://272586.blogspot.com/2008/07/excelcopy_31.html ※去拜訪一下引用的vba程式作者的網誌贊助一下人氣吧請下載mergertosheet.xls 並放到51個檔案同個資料夾裡 4. 開啟mergertosheet.xls 請在B欄拉出 1~51來接著請先拜拜後點擊合併Excel檔案成功的話，會看到啪拉啪拉的就完成了所有檔案合併的動作 (好帥~ 然後請先存個檔~~~ (假設存檔檔名是X-ten.xls) 5. 終於輪到我了XD 請下載這個xls檔(Rand-ten.xls) http://ppt.cc/jdhv 左上角檔案 > 下載原始檔案原始路徑: https://docs.google.com/viewer?a=v&pid=explorer&chrome=true &srcid=0Bw1Y_fV1cmOaZWI3ZGEzYWYtN2FlNi00OTNhLTk5OWQtYmRmYTI1Zm U0NjBk&hl=zh_TW&authkey=COfvqZMK 6. 接著我們要把Rand-ten.xls裡的Sheet1複製一份到X-ten.xls裡打開Rand-ten.xls ( X-ten.xls也要開著唷 ) 在Rand-ten.xls 分頁列的Sheet1上按右鍵 > 移動或複製彈出的小視窗中活頁簿請選 X-ten.xls 並記得勾選建立複本(動作是複製)，不勾也可以啦只是會便成移動而已沒啥差 7. 如果，如果沒意外的話，這時候X-ten.xls的Sheet1中的C:E三欄就是你要的東西了。只是它會一直變想要確定的值請copy這三欄後到另外的excel檔中以(純值)選擇性貼上試算表解釋：因為隨機又不重複實在太難寫了加上我又超想睡覺的... 所以就僅取一值直接連號連十個號碼一起拉資料出來... 如果這樣會有資料過度集中的話，再說吧......... XD 最後看一看，好像除了別人寫好的合併功能外並沒有用到多難的函式可是怎麼搞這麼久 ORZ 參考及引用資料：如何一次將多個Excel檔案copy到一個檔案內的不同工作表中，並以檔案的檔名作為工作表的名稱 @[彰化一整天的blog] http://272586.blogspot.com/2008/07/excelcopy_31.html ※ 引述《kindyayaya (Auto魂)》之銘言： : 軟體:excel : 版本:2003 and 2010 : 手邊有約70個excel檔，必須從每個檔案中各隨機選出10筆資料複製貼上到新的excel中 : 目前方法是看檔案內有幾筆資料用RANDBETWEEN先做出亂數表，然後根據亂數表選出10筆 : 資料，一條一條複製貼上到新的excel中。快死掉...Orz 估計還要6小時才能完成 : 請問有沒有更快速的方法？感謝。 : 檔案分別在三個資料夾96、97、98中檔案數量分別是18、15、18個 : 檔案內資料數量不一定相等，不過都一樣要隨機取10筆包含三欄資料 : A B C D ... <---選A、B和C三個欄位 : 1 xxxx <-第一行說明不選 : 2 O O O <-第二行開始隨機取10筆至最後 : 3 : 4 O O O : 5 : . : . : . : 99 O O O <-最後不一定為99列，每個檔案數量不一定相同 : 各資料夾內檔案名稱不固定，資料夾或檔案名稱皆可修改，檔案也可丟進同一個資料夾內 : 謝謝！ -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 123.193.40.72