VBA排序的代码

wengjl · 发表于 2024-5-20 11:11

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

感谢高手不吝赐教！

ykcbf1100 · 发表于 2024-5-20 11:19

附件供参考。。。

ykcbf1100 · 发表于 2024-5-20 11:20

参与一下。。。

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

复制代码

杨成云 · 发表于 2024-5-20 11:22

姓名使用自定义排序。

wengjl · 发表于 2024-5-20 11:28

感谢二位的帮助，谢谢

tanglf188 · 发表于 2024-5-20 11:34

参与一下

Qs18 · 发表于 2024-5-20 12:32

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 · 发表于 2024-5-20 14:36

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

		自动登录	找回密码
密码			免费注册

[求助] VBA排序的代码

评分

评分