Range("C232:C342").Select ActiveWorkbook.Worksheets("Headword_list").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Headword_list").Sort.SortFields.Add Key:=Range("C2"), _ SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Headword_list").Sort .SetRange Range("A232:M342") .Header = xlNo .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With
xlWorkSheet.Sort.SortFields.Add(bcrRange[rcnt, 3], Excel.XlSortOn.xlSortOnValues, Excel.XlSortOrder.xlAscending, Type.Missing, Excel.XlSortDataOption.xlSortNormal); xlWorkSheet.Sort.SetRange(bcrRange); xlWorkSheet.Sort.MatchCase = false; xlWorkSheet.Sort.Header = Excel.XlYesNoGuess.xlNo; xlWorkSheet.Sort.Orientation = Excel.XlSortOrientation.xlSortRows; xlWorkSheet.Sort.SortMethod = Excel.XlSortMethod.xlPinYin; xlWorkSheet.Sort.Apply();
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)