[發問] 資料-排序問題請教

rouber590324

DEAR ALL 大大
1.小弟於 工具-選項-自定清單 建立圖一原則
2.然後錄製圖二巨集(資料-排序-選項-自定排序方式選圖一項目)指定工作表依圖一原則(OrderCustom:=15)排序
2.1 但於其它人電腦即無法動作.
3.請問如何將圖一原則加於圖二VBA中.煩不吝賜教 THANKS

圖一
IMP1-A,IMP1-B,IMP2-A,IMP2-B,IMP3-A,IMP3-B,IMP4-A,IMP4-B
圖二
Sub TBDD2015轉置B2()
    Sheet15.Select
    Range("A1").Select
    Cells.Select
    Range("V1").Activate
    Selection.Sort Key1:=Range("AB1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=15, MatchCase:=False, Orientation:=xlTopToBottom, _
        SortMethod:=xlStroke, DataOption1:=xlSortNormal
    Range("V1").Select
End Sub

rouber590324

dear 大大
感謝指導.使用您建議之"輔助欄公式來做排序"已解決問題.thanks*10000