ExcelVBA的問題 - 工作

＜範例檔＞請參考：http://www.funp.net/656097※重覆的資料，保留第一筆，並加總其F欄數字，　刪除第二筆以後重覆的列資料。2011-05-1502:10:17補充：請版大再多測試幾次，兩個範例檔都測，※試著將資料加到3000~5000筆，測一次（如果資料不多可不考慮）※再來將中段部份資料清空，亦即讓資料不連續，　尤其是第1至10列清空，再測看看！　空列的問題我也未加入予以刪除，但不影響計算結果，　（如果確定資料皆是連續的也可不考慮）※測出所有問題提出

SubAdo()WithCreateObject("adodb.connection").Open"Provider=Microsoft.Jet.OLEDB.4.0;ExtendedProperties='Excel8.0;hdr=no;';DataSource="&ThisWorkbook.FullName[H10].CopyFromRecordset.Execute("selectf1,sum(f6)from[Sheet1$A1:F4224]groupbyf1")2011-05-1822:12:08補充：.CloseEndWithEndSub一次個意見寫不上，分二次貼寫的簡略位置固定寫法但應該能用，資料庫寫法參考。2011-05-1920:48:56補充：印像中一直以為他會依原順序排列，結果答案是自動排序我也滿意外的要讓他依原順序排回來我就不確定怎寫

拙見參考:不用dic可磨磨基本功用countif之餘,也可試試match應會快得多～2011-05-1810:41:45補充：願意可寄檔案給我[email protected]:29:18補充：For准大:有本書名含747的EXCELVBA書很多年了應該還買得到裡面有許多可以參考的東西有興趣可以看看2011-05-2011:14:41補充：計憶中,ADODB有一點是需注意的因EXCEL使用者一般太隨興了萬一遇到"同欄位"中,文數混合的資料,會遺失～2011-05-2016:39:48補充：感謝權且記下有空再試了^^...Showmore

版大意見:最佳回答只能選一個，我就選最先回答的了。不過kk大寫的，我比較看得懂，可能傾向使用你的寫法...淮大意見:對初學者而言，挖個小洞，先給一支圓鍬可能較恰當，隨時可自己來，這也是我希望版大使用KK大的範例，因為版大看得懂...先謝謝淮大指出_答問之間的重點.基於上述_說句抱歉_並將回答_移除....Showmore

KK大的取樣資料若改為准大提供的，花費時間約45秒，而准大的第2個按鈕執行結果為1.5秒，與小弟不用工作表函數寫的1.8秒要快0.3秒。因此可發現充分利用工作表函數來寫，其執行速度就像如虎添翼般的快速，但話又說回來，當資料量若是好幾萬筆時，就需用陣列方式來寫才會快，而陣列寫法個人就不在行了。

正在學VBA也貢獻一個陽春+簡易的版本http://www.funp.net/2260442011-05-1509:36:53補充：知識+是幫助與知識交流的地方版大的意見完全正確幫助當然以第一優先為主，選淮大是正確的淮大的作品是我必看學習的對象他的VBA程式很完整，有宣告、變數、訊息。就麻煩淮大上答2011-05-1510:15:57補充：002的程式是預空格停止運算如果資料中有空格時參考下列http://www.funp.net/8121032011-05-1521:22:17補充：Rows(j).Delete是列刪除使用沒有問題.用淮大的4224筆資料測試淮大程式約4秒我�