VBA根据单元柜名称对板件名称排序

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.9.3    排序
   
2.     With Sheets("电子锯开料单")
   
3.         r = .Cells(Rows.Count, 1).End(3).Row
   
4.         Set Rng = .Range("a4:n" & r)
   
5.         With Rng
   
6.             .Parent.Sort.SortFields.Clear
   
7.             .Sort key1:=.Item(1), order1:=1, key2:=.Item(2), order2:=1, Header:=2
   
8.         End With
   
9.     End With
   
10.     MsgBox "OK！"
    
11. End Sub
    

复制代码

zhangmy66

ykcbf1100 发表于 2024-9-3 08:45
参与一下。。。

大佬这么几行代码就搞定了，厉害，我测试一下

今铭昔

zhangmy66

今铭昔 发表于 2024-9-3 14:33

左侧项目的顺序混合了

今铭昔

啊，原来是要两个排序条件