VBA实现表格排序,QAQ

有一份表格,根据K列的结果进行排序,K列中存在多种结果[希望通过VBA实现, 尽量简单点]

img

我的解答思路和尝试过的方法

尝试用slipt对换行符进行拆分,然后对每一行进行赋值比较,如果不同,则在L列标注0,相同则标注1,对L列进行排序

我想要达到的结果

将K列的不同结果进行排序显示如下图所示

img

https://download.csdn.net/download/weixin_42665725/25680807?spm=1005.2026.3001.5635&utm_medium=distribute.pc_relevant_ask_down.none-task-download-2~default~OPENSEARCH~Rate-5-25680807-ask-7767444.pc_feed_download_top3ask&depth_1-utm_source=distribute.pc_relevant_ask_down.none-task-download-2~default~OPENSEARCH~Rate-5-25680807-ask-7767444.pc_feed_download_top3ask

不一定用VBA,在L列输入公式:=IFERROR(IF(FIND("疑似",K2)>0,2),IFERROR(IF(FIND("非",K2)>0,4,6),6))
然后在L列下面空行输入5行数字,分别是1,3,3,5,5
选中数据区域,按L列排序

img