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

qianlan · 发表于 2012-12-7 09:37

本帖最后由 qianlan 于 2012-12-7 09:55 编辑

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

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

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 · 发表于 2012-12-7 09:43

恳请帮忙！在线等！

qianlan · 发表于 2012-12-7 09:56

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

qianlan · 发表于 2012-12-7 10:17

{:soso_e115:}

qianlan · 发表于 2012-12-7 11:49

大侠都提前放假了！

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