[發問] 使用者定義的字串排序

爆肝達人

各位好:

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

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

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

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

准提部林

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

hcm19522

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

Hsieh

回復 1# 爆肝達人

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

   

下載 (791.94 KB)

2016-12-7 15:04

爆肝達人

不好意思  我好像沒講清楚

如下表要使用 VBA方式

感謝

下載 (38.41 KB)

2016-12-7 22:12

Kubi

回復 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

回復 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

複製代碼

下載 (23.16 KB)

2016-12-11 08:25