標題: [發問] 使用者定義的字串排序 [打印本頁]

---

作者: 爆肝達人    時間: 2016-12-6 21:07     標題: 使用者定義的字串排序

各位好:

我的問題是我整張工作列表中"F"欄位要做字串的排序(由使用者定義條件)

例如:
麻辣
麻麻
天天
開開
欣欣

以上字串"麻辣"排為1,"麻麻"排為2,"天天"排為3

依此類推 不是只有字串排序  字串排序時也會使其他欄位連動排序

---

作者: 准提部林    時間: 2016-12-7 09:57

排序的文字放在某一欄,
資料表加一個輔助欄, 用MATCH即可取得順序, 再依此排序即可!

---

作者: hcm19522    時間: 2016-12-7 10:16

http://blog.xuite.net/hcm19522/twblog/473940460

---

作者: Hsieh    時間: 2016-12-7 15:04

回復 1# 爆肝達人

不知道是否理解錯誤?利用自訂清單指定排序方式即可

    [attach]26047[/attach]

---

作者: 爆肝達人    時間: 2016-12-7 22:12

不好意思  我好像沒講清楚

如下表要使用 VBA方式

感謝[attach]26048[/attach]

---

作者: Kubi    時間: 2016-12-8 22:10

回復 5# 爆肝達人

1. Sub test()
   
2.     Dim arr
   
3.     arr = Array("麻辣", "麻麻", "天天", "開開", "欣欣")
   
4.     Application.AddCustomList listArray:=arr
   
5.     n = Application.CustomListCount
   
6.     er = [A65536].End(3).Row
   
7.     Range("A9:C" & er).Sort Key1:=[B9], OrderCustom:=n + 1
   
8.     Application.DeleteCustomList n
   
9.     Set arr = Nothing
   
10. End Sub

複製代碼

---

作者: c_c_lai    時間: 2016-12-11 08:21

本帖最後由 c_c_lai 於 2016-12-11 08:25 編輯

回復 5# 爆肝達人

1. Sub Ex()
   
2.     Dim ct As Long
   
3.    
   
4.     With 工作表1
   
5.         ct = .[A65536].End(3).Row
   
6.         .Range("A9:C" & ct).Copy .[F9]
   
7.         .Range("F9:H" & ct).Sort Key1:=.[F9], Order1:=xlAscending
   
8.     End With
   
9. End Sub

複製代碼

[attach]26066[/attach]

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)