求教vba的range.sort方法,需要根据三个字段依次排序,怎么写?
答案:2 悬赏:20 手机版
解决时间 2021-11-10 01:24
- 提问者网友:謫仙
- 2021-11-09 18:21
求教vba的range.sort方法,需要根据三个字段依次排序,怎么写?
最佳答案
- 五星知识达人网友:長槍戰八方
- 2021-11-09 19:54
先用.SortFields.Clear删除排序字段,然后依次添加多个.SortFields.Add排序关键字即可,下面的例子代码在EXCEL2010上执行的:
Sub YgB()
ActiveWorkbook.Worksheets("标保明细").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("标保明细").Sort.SortFields.Add key:=Range("A2:A3339")
ActiveWorkbook.Worksheets("标保明细").Sort.SortFields.Add key:=Range("B2:B3339")
ActiveWorkbook.Worksheets("标保明细").Sort.SortFields.Add key:=Range("C2:C3339")
With ActiveWorkbook.Worksheets("标保明细").Sort
.SetRange Range("A1:Y3339")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Sub YgB()
ActiveWorkbook.Worksheets("标保明细").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("标保明细").Sort.SortFields.Add key:=Range("A2:A3339")
ActiveWorkbook.Worksheets("标保明细").Sort.SortFields.Add key:=Range("B2:B3339")
ActiveWorkbook.Worksheets("标保明细").Sort.SortFields.Add key:=Range("C2:C3339")
With ActiveWorkbook.Worksheets("标保明细").Sort
.SetRange Range("A1:Y3339")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
全部回答
- 1楼网友:时间的尘埃
- 2021-11-09 21:11
录制宏就知道了
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯