有一张资料表其中一行大概如下
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加辅助列再升幂排列