发布网友 发布时间:2022-04-23 05:18
共4个回答
热心网友 时间:2023-10-23 12:10
按你的要求,做函数如:
Sub R列排序()
'我不知道你的接口是什么,下面的代码需要先激活此工作表
Columns("R:R").Select '选择R列
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear '清空其它有可能残存的排列方法
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("R2:R8"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal '靖将"R2:R8"改为你的实际的区域
With ActiveWorkbook.Worksheets("Sheet1").Sort '开始排序
.SetRange Range("Q1:S8") '此处更为你实际的排序的整个区域
.Header = xlYes '有标题,则用此行,无则删除
.MatchCase = False'按数值排列
.Orientation = xlTopToBottom'隆序排列
.SortMethod = xlPinYin '如遇到汉字,以音序排列
.Apply
End With
End Sub
....可能有误,仅供参考....
========================================
您的问题==我的课题 奉献知识==辉煌生命
黑龙江省 张志晨
========================================
热心网友 时间:2023-10-23 12:11
光标在R列任意格,点排序(降序)按钮。OK了。有AZ和箭头图案的。 没有排序函数。
热心网友 时间:2023-10-23 12:11
数据
排序
选择框上选择为R列或者得分
右边选择降序
确定
OK
热心网友 时间:2023-10-23 12:12
选择R列后,按降序排列即可。