有一个简单的办法不知道是否满足,就是复制A列到B列,然后B列选择降序排列在弹出的对话框中选择【以当前选定区域排序】即可实现。
追问要自动,不用我去用手拉
追答思路:复制A到B列,然后利用系统排序自动排。
前面在想用Function来做,一直在试验看看能否解决。发现不可避免的自调用很容易死循环。最后只能用SUB来做,代码倒不复杂,如下:
Sub 排序0()
Range("A:A").Select
Selection.Copy
Range("B1").Select
ActiveSheet.Paste
Range("B:B").Sort key1:=Range("B1"), order1:=xlDescending, Header:=xlNo
End Sub
要自动,不用我去用手拉
追答那就VBA编程处理