如何使用VBA代码对表格中的数据排序处理?
就一个字 我只说一次 恐怕听见的人勾起了相思……
爱就一个字 张信哲 - 我好想



代码解析见注释
如看不全,可以左右拖动...
Sub SortDemo() Range('A:B').Sort key1:=[b1], order1:=xlDescending, Header:=xlYesEnd Sub
Sort的语法如下▼

代码解析见注释
如看不全,可以左右拖动...
Sub SortDemo() Dim i& For i = 5 To 2 Step -1 '一共4个排序字段,分别处于b1:e1单元格,从后向前遍历排序 Range('a:e').Sort key1:=Cells(1, i), order1:=xlDescending, Header:=xlYes NextEnd Sub
小贴士▼
赞 (0)