Sub 排序() Sheet1.Range("A1:E18").Sort key1:=Range("D2"), order1:=xlAscending, Header:=xlGuess End Sub
你可以通过录制宏来看一下排序的代码即可
