录一个宏,把下面代码贴进去
For i = 1 To 200 Step 1 '对第一列到第200 列进行排序
Range(Cells(1, i), Cells(200, i)).Select '每列前200行数据参与排序
ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Clear ‘sheet2改为你的sheet名字
ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Add Key:=Cells(1, i), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet2").Sort
.SetRange Range(Cells(1, i), Cells(20, i))
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Next i
追问这个太复杂了,没有简单点的大神?
追答你放到我的邮箱我帮你弄吧,
[email protected]
本回答被提问者和网友采纳