@@请教如何使用Excel自动排序函数/公式，急用，在线等，非常感谢@@

@@请教如何使用Excel自动排序函数/公式，急用，在线等，非常感谢@@

用宏可以自动排序。ALT+F11打开VBA窗口，双击左边的SHEET1，在右边粘贴下面代码。回到SHEET1中，点一下B1就会自动排序。以后更新数据后，也是点一下B1就排序。Private Sub Worksheet_SelectionChange(ByVal Target As Range)If Target.Count = 1 And Target.Column = 2 And Target.Row = 1 Then Range("A:B").Sort Key1:=Range("B1"), Order1:=xlDescendingEnd IfEnd Sub 如果要在D：E列排序，则要将A、B列数值粘贴过来。同理，点一下E1，则只会对D：E排序。Private Sub Worksheet_SelectionChange(ByVal Target As Range)If Target.Count = 1 And Target.Column = 5 And Target.Row = 1 Then Range("D:E").Sort Key1:=Range("E1"), Order1:=xlDescending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _ :=xlPinYin, DataOption1:=xlSortNormalEnd IfEnd Sub