按拼音和笔画排序的实现

order2:=xlAscending,Header:=xlYes,SortMethod:=xlStroke'笔画'rngs.Sortkey1:=Cells(1,f),Order1:=xlDescending,key2:=Cells(1,e),_order2:=xlAscending,Header:=xlYes,SortMethod:=xlPinYin'拼音rngs.Sortkey1:=Range(Cells(1,f),Cells(rs,f)),Order1:=xlDescending,key2:=Range(Cells(1,e...