请问这excel VBA代码出错在哪？

因为没有实际文件在手，不太好测试查找故障，仅做提示如下：

1. 以下是一段对数据进行排序的代码：

    ActiveWorkbook.Worksheets("测试").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("测试").Sort.SortFields.Add Key:=Range("A2:A13"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("测试").Sort
        .SetRange Range("A1:F13")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

2. 建议你可以先用宏录制一下操作，再参照生成的代码，进行相应的修改。

好像没有错误。

Sub a()
Sheets("单选题").Range("A:D").Sort Key1:=Sheets("单选题").Range("D2"), Order1:=xlAscending, Header:=xlGuess
Sheets("多选题").Range("A:D").Sort Key1:=Sheets("多选题").Range("D2"), Order1:=xlAscending, Header:=xlGuess
Sheets("判断题").Range("A:D").Sort Key1:=Sheets("判断题").Range("D2"), Order1:=xlAscending, Header:=xlGuess
End Sub