请大侠简化一下“按照某一列排序”的宏代码

qianlan

求教.rar (10.23 KB, 下载次数: 13)

2012-12-7 09:55 上传

点击文件名下载附件

肯请大侠帮忙：简化一下“按照某一列排序”的宏代码？

Sub 排序()
ActiveWorkbook.Worksheets("成绩").Sort.SortFields.Add Key:=Range("D2"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("成绩").Sort
.SetRange Range("A:D")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

谢谢

qianlan

恳请帮忙！在线等！

qianlan

已经上传了附件！有请高手出手帮忙！

qianlan

{:soso_e115:}

qianlan

大侠都提前放假了！