Sheets("单选").Range("A:D").Sort Key1:=Sheets("单选").Range("D2"), Order1:=xlAscending, Header:=xlGuessSort Key1中间少了一个空格