excel 2013 vba 选定任意区域
发布网友
发布时间:2022-05-01 19:53
我来回答
共3个回答
热心网友
时间:2022-06-22 07:07
Sub SortData()
a = Selection.Address
With ActiveWorkbook.Worksheets(ActiveSheet.Name).Sort
.SortFields.Clear
.SortFields.Add Key:=Selection.Cells(1), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
End With
With ActiveWorkbook.Worksheets(ActiveSheet.Name).Sort
.SetRange Range(a)
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
MsgBox "排序完成.", vbInformation
End Sub
这回可以满足你的要求了。
热心网友
时间:2022-06-22 07:08
Worksheets("一组") 改成.ActiveSheet 试试追问好的,我去试试
热心网友
时间:2022-06-22 07:08
--------------------------------李甲-------------------------------------
工作表名称等需要改写,用到任意地方,可以考虑设置成模板
“一组”就是工作表名追问嗯,这个我知道了,那第一个问题请问知道怎么改吗?
追答就是将“一组”改成你要操作工作表的名称或者ActiveSheet.Name
------------------------------------
自定义排序没有那么复杂的