优先级排序

Ericcccccc

如果将B列的内容根据sheet2的A列对应字段的优先级（优先级高的在前面）来排序，可以用VBA实现吗

shiruiqiang

Ericcccccc

shiruiqiang 发表于 2023-5-18 16:49

如果K列不存在B列字段时，排序结果会错误；这种情况下把不存在的优先级放在最后可以调整吗？

fanyoulin

用了一个很笨的办法，大数量量效率应该不行；

不知道为什么

如图 ，参考。。。。。。。。。

shiruiqiang

Ericcccccc 发表于 2023-5-18 16:59
如果K列不存在B列字段时，排序结果会错误；这种情况下把不存在的优先级放在最后可以调整吗？

else
n=n+1
crr(n,y)=brr(i,y)

Ericcccccc

不知道为什么 发表于 2023-5-18 17:03
如图 ，参考。。。。。。。。。

我尝试增加D列的双排序后报错提示“排序引用无效。请确保它在所要排序的数据内，并且第一个“排序依据”框不能为空”
Sheet1.Range("a2:c15").Sort key1:=Range("d2"), order1:=xlAscending,key2:=Sheet1.[b2], order2:=xlAscending, Header:=xlYes, ordercustom:=count + 1