返回列表 上一主題 發帖

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

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

各位好:

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

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

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

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

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

TOP

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

TOP

回復 1# 爆肝達人

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

   
play.gif
2016-12-7 15:04
學海無涯_不恥下問

TOP

不好意思  我好像沒講清楚

如下表要使用 VBA方式

感謝
844458.jpg
2016-12-7 22:12

TOP

回復 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
複製代碼

TOP

本帖最後由 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
複製代碼
A0B.png
2016-12-11 08:25

TOP

        靜思自在 : 能善用時間的人,必能掌握自己努力的方向。
返回列表 上一主題