Question

请高手帮忙看看，2003中为什么不能执行以下的宏，因为要进行4个关键词的排序，怎么办才好？

Range("G35:L50").Select
ActiveWorkbook.Worksheets("成绩総合").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("成绩総合").Sort.SortFields.Add Key:=Range("i36:i50") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("成绩総合").Sort.SortFields.Add Key:=Range("j36:j50") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("成绩総合").Sort.SortFields.Add Key:=Range("k36:k50") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("l36:l50") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("成绩総合").Sort
.SetRange Range("G35:L50")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

Answer 1

Excel 2003只有3个关键字排序的功能。
建议使用Excel 2007或2010，如果只能使用Excel 2003，可以借助辅助列或公式来做。需要具体附件。

欢迎阅读我的百度空间Excel文章。