条件排序问题

自由自在来了

先筛选已备未发，对D列升序排列，在对A列升序排列。在筛选未备、已发，先对C列升序排列，再对B列升序排列，再对A列升序排列，解除筛选完成。

ansonlinh

谢谢楼上的，最后我是用加一列辅助列的方式解决的。

qdzhxg

看过了，不是我要的，仍然感谢下

ykcbf1100

借题练习，VBA，４条件排序

ykcbf1100

1. Sub ykcbf()  '//2025.4.11  多条件排序
   
2.     With ActiveSheet
   
3.         r = .Cells(.Rows.Count, 1).End(3).Row
   
4.         px = [{"已备未发","已发"}]
   
5.         Set Rng = .Range("A2:d" & r)   '//排序范围
   
6.         With .Sort
   
7.             .SortFields.Clear
   
8.             .SortFields.Add Key:=Rng.Columns(1), Order:=1
   
9.             .SortFields.Add Key:=Rng.Columns(2), Order:=1, CustomOrder:=Join(px, ",")
   
10.             .SortFields.Add Key:=Rng.Columns(3), Order:=1
    
11.             .SortFields.Add Key:=Rng.Columns(4), Order:=1
    
12.             .SetRange Rng
    
13.             .Header = 2
    
14.             .Apply
    
15.         End With
    
16.     End With
    
17. End Sub
    

复制代码