With ActiveSheet.Sort .SortFields.Clear .SortFields.Add _ Key:=[A1], _ SortOn:=xlSortOnValues, _ Order:=xlAscending, _ DataOption:=xlSortNormal .
確定! 回上一頁