EXCEL表中,有没有人可以做一列VBA程序,可以使数据填入后自动排序的,不需要手选排序。
如第一列是名称,第二列是金额1,第三列是金额2,第三列是金额4,第五列是总计,让总计按照从大到小自动排列,可以吗?(需要加分可以写明)
如我需要E2-E10的数量按大小排列,然后 E13-E20的数量按大小排列,可以吗?有什么样的修改
追答Private Sub Worksheet_Change(ByVal Target As Range)
Range("A2:E10").Sort Key1:=Range("E2"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin, DataOption1:=xlSortNormal
Range("A13:E20").Sort Key1:=Range("E13"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin, DataOption1:=xlSortNormal
End Sub