VBA排序的代码

wengjl

请求EXCELHOME上的高手，写一个排序的VBA代码，要求是先按“姓名”字段排序，姓名相同的再按“打卡”字段排序。


感谢高手不吝赐教！

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.5.20
   
2.     r = Cells(Rows.Count, 1).End(3).Row
   
3.     Set Rng = [a2].Resize(r - 1, 8)
   
4.     With Rng
   
5.         .Parent.Sort.SortFields.Clear
   
6.         .Sort key1:=.Item(3), order1:=1, key2:=.Item(4), order2:=1, Header:=2
   
7.     End With
   
8.     MsgBox "OK！"
   
9. End Sub
   

复制代码

杨成云

姓名使用自定义排序。

wengjl

感谢二位的帮助，谢谢

tanglf188

参与一下

Qs18

Sub SortData() '排序2025/05/20
  With Sheet1
    k = .Cells(Rows.Count, 1).End(xlUp).Row
    .Range("a2:h" & k).Sort key1:=Range("d2:d" & k), Order1:=xlAscending
    .Range("a2:h" & k).Sort key1:=Range("c2:c" & k), Order1:=xlAscending '升序 降序x1Descending
  End With
End Sub

grf1973

用JS排序真方便。
跟GPT学了一招按拼音排序。