excel 如何实现按组倒序

yuanxiaoq · 发表于 2011-7-19 23:12

有这样一组数据要以四个为一组实现四个的倒序，如何能快速实现？

doitbest · 发表于 2011-7-20 09:31

Public Sub ww()
Dim i
For i = 2 To [a65536].End(xlUp).Row Step 4
Cells(i, 1).Resize(4, 3).Sort Key1:=Cells(i, 1), Order1:=xlDescending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin, DataOption1:=xlSortNormal
Next
End Sub

doitbest · 发表于 2011-7-20 09:33

请参考附件

ykcbf1100 · 发表于 2025-3-26 09:00

编号就不用参与排序了

Sub ykcbf() '//分块倒序
r = Cells(Rows.Count, 1).End(3).Row
For i = 2 To r Step 4
Set Rng = Cells(i, 2).Resize(4, 2)
Rng.Sort Rng.Columns(2), 2
Next
End Sub

复制代码

wp231957 · 发表于 2025-3-26 12:58

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

[求助] excel 如何实现按组倒序