作者wang111283 (王韦 丰)
看板Office
标题[算表] 排序自订清单超过上限解法？
时间Tue Nov 14 12:36:13 2023
有一张资料表其中一行大概如下
P1-1
P1
P1-3
P2-4
P2-5
:
P150-3
有缺项、跳号
使用预设排序P120会接在P12後面
有试过用vba把以下阵列自建清单
用.sort、AddCustomList 做
https://i.imgur.com/TAjwE5o.jpg
但自订排序清单有上限200多
只能用For一个一个搜去剪贴了吗？
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 1.172.105.190 (台湾)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1699936575.A.D26.html
1F：推 windknife18: 假设那一行是在A栏,可以多加一个栏位来排序， 11/14 16:44
2F：→ windknife18: G1 =--LEFT(LEFT(SUBSTITUTE(A1,"P",""),IFERROR( 11/14 16:46
3F：→ windknife18: FIND("-",SUBSTITUTE(A1,"P",""))-1,LEN(SUBSTITUTE( 11/14 16:46
4F：→ windknife18: A1,"P",""))))&"0000",6) 11/14 16:47
5F：→ windknife18: 往下复制到最後一列，然後排序 11/14 16:47
6F：→ windknife18: 如果有空白列，公式可以加if(A1="","",......)去除 11/14 16:48
7F：→ wang111283: 後来直接另建参考表[P1,P1-1,P1-2…]-[1,2,3…],用x 11/14 20:35
8F：→ wang111283: lookup加辅助列再升幂排列 11/14 20:35