12
返回列表 上一主題 發帖

[發問] Excel VBA條件排序問題

蒼雪

帖子
43 
主題
9 
精華
0 
積分
79 
點名
0  
作業系統
windows 7 
軟體版本
office 2016 
閱讀權限
20 
註冊時間
2017-7-23 
最後登錄
2024-4-25 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2017-12-17 16:14 | 顯示全部帖子

[發問] Excel VBA條件排序問題

想請問各位大大
若在同一儲存格內，可以利用三種條件下去排序嗎？
例如︰
L20[9/C]N
L20[7.5/B.5]S
L20[3.5/B.5]E
L20[15.5/D]N
L20[19/F]N      
L20[15.5/F.5]N  
L20[7/C]N      
L20[2/E]S      
L20[21/E]N      
     
---------------------------------------------------------
第一個條件為 L20、L10、L30，中括弧前為一個條件(紅色)
排序完成後，再來以中括弧內的數字大小排序(藍色)
最後以中括弧內的英文作排列(綠色)

L20[15.5/D]N

希望會排序成下列情況

L20[2/E]S  
L20[3.5/B.5]E
L20[7.5/B.5]S
L20[7/C]N  
L20[9/C]N
L20[15.5/D]N
L20[15.5/F.5]N  
L20[19/F]N         
L20[21/E]N      

還請各位大大幫忙想了，謝謝。
收藏 分享

蒼雪

帖子
43 
主題
9 
精華
0 
積分
79 
點名
0  
作業系統
windows 7 
軟體版本
office 2016 
閱讀權限
20 
註冊時間
2017-7-23 
最後登錄
2024-4-25 
2#
發表於 2017-12-18 00:00 | 顯示全部帖子
回復 2# hcm19522


    E2:E10{=INDEX(A:A,RIGHT(SMALL(MID(A$2:A$10,2,2)*10^9+MID(A$2:A$10,5,FIND("/",A$2:A$10)-5)*10^6+CODE(MID(A$2:A$10,FIND("/",A$2:A$10)+1,1))/1%+ROW(A$2:A$10),ROW(A1)),2))

抱歉，可以問一下
這判斷的流程是？ 而紅字部份，是怎麼判斷的？

TOP

蒼雪

帖子
43 
主題
9 
精華
0 
積分
79 
點名
0  
作業系統
windows 7 
軟體版本
office 2016 
閱讀權限
20 
註冊時間
2017-7-23 
最後登錄
2024-4-25 
3#
發表於 2017-12-18 20:28 | 顯示全部帖子
回復 4# hcm19522


   今天實際使用了一下，結果整條的排序都只有L20[2/E]S....
    不知道是在哪一個環節出錯了

-----------------------------------------------------------------
若在這個條件可以完成下，可以也將相鄰的儲存格整列移動嗎？
L20[2/E]S  這個是在B欄，還有A、C欄的資料也可以一同移動嗎？

TOP

蒼雪

帖子
43 
主題
9 
精華
0 
積分
79 
點名
0  
作業系統
windows 7 
軟體版本
office 2016 
閱讀權限
20 
註冊時間
2017-7-23 
最後登錄
2024-4-25 
4#
發表於 2017-12-19 19:24 | 顯示全部帖子
回復 7# hcm19522


    有喔，我知道Ctrl+Shift+Enter
    今天反覆的再試了幾次，都還是一樣的情況

    結果出來會是 E2:10 都是 L20[2/E]S

TOP

蒼雪

帖子
43 
主題
9 
精華
0 
積分
79 
點名
0  
作業系統
windows 7 
軟體版本
office 2016 
閱讀權限
20 
註冊時間
2017-7-23 
最後登錄
2024-4-25 
5#
發表於 2017-12-20 16:13 | 顯示全部帖子
回復 9# hcm19522


   


我取下 〔INDEX(A:A,RIGHT(SMALL(MID(A$2:A$10,2,2)*10^9+MID(A$2:A$10,5,FIND("/",A$2:A$10)-5)*10^6+CODE(MID(A$2:A$10,FIND("/",A$2:A$10)+1,1))/1%+ROW(A$2:A$10),ROW(A1)),2))〕
來使用，結果得到的是 圖片的結果...

TOP

蒼雪

帖子
43 
主題
9 
精華
0 
積分
79 
點名
0  
作業系統
windows 7 
軟體版本
office 2016 
閱讀權限
20 
註冊時間
2017-7-23 
最後登錄
2024-4-25 
6#
發表於 2017-12-23 21:01 | 顯示全部帖子
回復 12# hcm19522


    經過嘗試，結果還是跟之前一樣...出來的結果只有一個
    不會正常的排序... ...

TOP

蒼雪

帖子
43 
主題
9 
精華
0 
積分
79 
點名
0  
作業系統
windows 7 
軟體版本
office 2016 
閱讀權限
20 
註冊時間
2017-7-23 
最後登錄
2024-4-25 
7#
發表於 2017-12-25 20:17 | 顯示全部帖子
回復 14# Kubi


抱歉，看了一下，是我順序放錯了。
這個除了排序這個儲存格外，相同row可以一起移動嗎？

TOP

蒼雪

帖子
43 
主題
9 
精華
0 
積分
79 
點名
0  
作業系統
windows 7 
軟體版本
office 2016 
閱讀權限
20 
註冊時間
2017-7-23 
最後登錄
2024-4-25 
8#
發表於 2017-12-26 20:17 | 顯示全部帖子
回復 16# Kubi


抱歉，該檔案我沒辦法丟出來...公司內不可帶出

會有 A、B、C、D欄
主要排序索引欄位會在C欄
各欄第一位會有抬頭

TOP

蒼雪

帖子
43 
主題
9 
精華
0 
積分
79 
點名
0  
作業系統
windows 7 
軟體版本
office 2016 
閱讀權限
20 
註冊時間
2017-7-23 
最後登錄
2024-4-25 
9#
發表於 2018-1-6 21:25 | 顯示全部帖子
回復 18# Kubi


抱歉，我學得不是很多。
想請問你，這整個流程的說明可以嗎？

尤其是拆開之後，又是怎麼將他們組合？

TOP

蒼雪

帖子
43 
主題
9 
精華
0 
積分
79 
點名
0  
作業系統
windows 7 
軟體版本
office 2016 
閱讀權限
20 
註冊時間
2017-7-23 
最後登錄
2024-4-25 
10#
發表於 2018-1-8 23:33 | 顯示全部帖子
回復 20# Kubi


所以是，以後面的排序完成後，再將資料刪除囉？

TOP

        靜思自在 : 知識要用心體會，才能變成自己的智慧。
12
返回列表 上一主題