按第三列数值降序，如何修改下面录制的宏，谢谢！

hcy1185 · 发表于 2024-8-1 17:24

本帖最后由 hcy1185 于 2024-8-1 17:25 编辑

t7单元格区域，行数不确定，列数4列，按第三列数值降序，如何修改（Range("V7:V14")）下面录制的宏，能否简化一下？谢谢！
Sub ar数组数值降序()
Range("T7").CurrentRegion.Select '数值降序Order:=xlDescending
ActiveWorkbook.Worksheets("考核表").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("考核表").Sort.SortFields.Add2 key:=Range("V7:V14"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("考核表").Sort
      .SetRange Range("T7").CurrentRegion
      .Header = xlGuess
      .MatchCase = False
      .Orientation = xlTopToBottom
      .SortMethod = xlPinYin
      .Apply
End With
End Sub

小凡、、、 · 发表于 2024-8-1 18:08

直接排序就好了

ykcbf1100 · 发表于 2024-8-1 18:37

没有附件就贴个图吧，仅供参考。。。

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

[求助] 按第三列数值降序，如何修改下面录制的宏，谢谢！