Excel VBA运行时错误1004

Question

我正在使用VBA for Excel 2010并随机收到以下错误：

运行时错误'1004'：“排序参考无效。请确保它在您要排序的数据中，并且第一个排序依据框不相同或为空。”

这是代码

'Sort the active rows
With ActiveWorkbook.Worksheets("Product Backlog").Sort
    .SetRange Range("A4:F51")
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With

Answer 1

按框排序是空白的，这是您的问题。 我从来没有像你那样使用过Sort对象，但是我可以看到你没有定义一个键，或者一个要排序的范围，只是要排序的范围。 应该定义一个键，例如Range（“A4”）或其他东西。 我查了一下，它应该有.sortfields.add（范围），例如：

'Sort the active rows

    With ActiveWorkbook.Worksheets("Product Backlog").Sort
        .SetRange Range("A4:F51")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin

        .SortFields.Add Key:=Range("A4:F51").Columns(1), SortOn:=xlSortOnValues, _
         Order:=xlDescending, DataOption:=xlSortNormal

        .Apply
    End With

我使用Sort函数如下：

ActiveWorkbook.Worksheets("Product Backlog").Range("A4:F51").Sort _
    Key1:= ActiveWorkbook.Worksheets("Product Backlog").Range("A4:F51").Columns(1), _
    Header:= xlYes, _
    Orientation:=xlSortColumns, _
    MatchCase:=False, _
    SortMethod:=xlPinYin