有一張資料表其中一行大概如下
P1-1
P1
P1-3
P2-4
P2-5
:
P150-3
有缺項、跳號
使用預設排序P120會接在P12後面
有試過用vba把以下陣列自建清單
用.sort、AddCustomList 做
https://i.imgur.com/TAjwE5o.jpg
但自訂排序清單有上限200多
只能用For一個一個搜去剪貼了嗎？

假設那一行是在A欄,可以多加一個欄位來排序，G1 =--LEFT(LEFT(SUBSTITUTE(A1,"P",""),IFERROR(FIND("-",SUBSTITUTE(A1,"P",""))-1,LEN(SUBSTITUTE(A1,"P",""))))&"0000",6)往下複製到最後一列，然後排序如果有空白列，公式可以加if(A1="","",......)去除

後來直接另建參考表[P1,P1-1,P1-2…]-[1,2,3…],用xlookup加輔助列再升冪排列