excel vba 自动选择数据区域,然后进行排序,我该怎么写?有类似案例么?
1个回答
展开全部
我的表格叫OMY,你的可以自己选
选中区域,然后进行了F1列的升序排列
我新百度知道,入学第一个任务,请给个满意答案
Range("F1:L16").Select
Selection.AutoFilter
ActiveWorkbook.Worksheets("OMY").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("OMY").AutoFilter.Sort.SortFields.Add Key:=Range( _
"F1:F16"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("OMY").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
选中区域,然后进行了F1列的升序排列
我新百度知道,入学第一个任务,请给个满意答案
Range("F1:L16").Select
Selection.AutoFilter
ActiveWorkbook.Worksheets("OMY").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("OMY").AutoFilter.Sort.SortFields.Add Key:=Range( _
"F1:F16"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("OMY").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询