返回列表 上一主題 發帖

[發問] 請問如何將資料轉換成TOP 10

hero007

帖子
8 
主題
2 
精華
0 
積分
50 
點名
0  
作業系統
windows7 
軟體版本
office 2013 
閱讀權限
20 
性別
男 
註冊時間
2014-7-16 
最後登錄
2020-4-21 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-10-6 16:24 | 顯示全部帖子

[發問] 請問如何將資料轉換成TOP 10

各位大大好,小弟想將資料依系列分析出商品排名
但研究了幾天並沒有太大的頭緒
不知有沒有好心的大大能協助指教比較適合的作法
謝謝

下圖為來源資料
需求是希望將依商品類別再依商品編號的數量取得前10名或前30名的明細資料


下圖為希望呈現的結果資料

Test1.zip (66.04 KB)

收藏 分享

hero007

帖子
8 
主題
2 
精華
0 
積分
50 
點名
0  
作業系統
windows7 
軟體版本
office 2013 
閱讀權限
20 
性別
男 
註冊時間
2014-7-16 
最後登錄
2020-4-21 
2#
發表於 2014-10-7 15:41 | 顯示全部帖子
先感謝超級版主的提供的方法
小弟正在測試及研究版主的寫法
晚點再回報結果
非常感恩^^

TOP

hero007

帖子
8 
主題
2 
精華
0 
積分
50 
點名
0  
作業系統
windows7 
軟體版本
office 2013 
閱讀權限
20 
性別
男 
註冊時間
2014-7-16 
最後登錄
2020-4-21 
3#
發表於 2014-10-7 18:09 | 顯示全部帖子
GBKEE 版主
請問一下 我將你的程式碼復製到一個模組後讓他執行
執行幾次迴圈時會在".Range("A:E").Copy Sh.[A1]"這行出現兩種錯誤訊息
第一種：
執行階段錯誤 '-2147417848 (80010108)':
'Copy' 方法 ('Range'物件) 失敗
第二種：
執行階段錯誤 '1004':
Class Range的Copy方法失敗

不太確定是什麼原因造成的?
這行感覺很簡單就是將新增的sheets內的前十筆資料Copy到TOP 10工作表，但有時跑第二次迴圈就出錯，有時跑4~5次才出錯，甚至連錯誤訊息都沒有Excel直接當掉重啟，不知是環境問題造成還是???
電腦環境是
CPU I7-3770S
RAM 16GB
Office 2013

TOP

hero007

帖子
8 
主題
2 
精華
0 
積分
50 
點名
0  
作業系統
windows7 
軟體版本
office 2013 
閱讀權限
20 
性別
男 
註冊時間
2014-7-16 
最後登錄
2020-4-21 
4#
發表於 2014-10-8 17:20 | 顯示全部帖子
感謝GBKEE版主的協助呀
目前問題看似都排除囉
讓我看到不同的寫法^^

而我昨日也有嘗試加入"Sh.AutoFilterMode = False"這句語法
也加過延遲幾秒後再執行".Range("A:E").Copy Sh.[A1]"
還是偶發出錯
不過今日好像又都好了，不過保險起見還是保留將篩選取消
非常感謝呀^^

TOP

        靜思自在 : 話多不如話少，話少不如話好。
返回列表 上一主題