由于 Range 对象，Excel 排序不起作用

Question

此宏基于我记录的一个宏，但经过调整以应对可能缺少 4 个排序标准中的 3 个的情况。我无法弄清楚为什么我的宏在特定范围条件下有效，但在我引用单个单元格并进行外推时却不行。

有了这条线，排序工作 .SetRange Range("A1:W162")

这行不排序。 .SetRange Range("A1").End(xlDown).End(xlToRight) 我已经完成并可以确认它选择了正确的范围

我不想使用带有特定单元格的行，因为将来的导出大小会不同。

这是完整的子程序（相关位在底部附近）。

谢谢！

Sub SortByScoreAndCost()

Dim Score As Range
Dim Cost As Range
Dim YN As Range
Dim OriginalScore As Range

Set Score = Cells.Find("Score")
Set Cost = Cells.Find("Cost")
Set YN = Cells.Find("Y/N")
Set OriginalScore = Cells.Find("Original Score")

Range("A1").CurrentRegion.Select

ActiveSheet.Sort.SortFields.Clear

ActiveSheet.Sort.SortFields.Add Key:=Range( _
    Score.Offset(1, 0), Score.End(xlDown)), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
    xlSortNormal

        If Cells.Find("Cost") Is Nothing _
            Then
            Else: ActiveSheet.Sort.SortFields.Add Key:=Range _
                (Cost.Offset(1, 0), Cost.End(xlDown)), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption _
                :=xlSortNormal
        End If

        If Cells.Find("Y/N") Is Nothing _
            Then
            Else: ActiveSheet.Sort.SortFields.Add Key:=Range _
                (YN.Offset(1, 0), YN.End(xlDown)), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption _
                :=xlSortNormal
        End If

        If Cells.Find("Original Score") Is Nothing _
            Then
            Else: ActiveSheet.Sort.SortFields.Add Key:=Range _
                (OriginalScore.Offset(1, 0), Original.End(xlDown)), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption _
                :=xlSortNormal
        End If

With ActiveSheet.Sort
    .SetRange Range("A1:W162") 'works with this line
    .SetRange Range("A1").End(xlDown).End(xlToRight) 'doesn't work if replaced with this line
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With

End Sub

Answer 1

Range("A1").End(xlDown).End(xlToRight) 指的是单个单元格区域，与A1:W162 不同。假设A1:W162 是工作表上所有数据所在的范围。该行仅指W162。 Range.End属性解释here，显示不保留起点。

尝试使用Range("A1:"& Range("A1").End(xlDown).End(xlToRight).Address)，因为这应该会创建一个类似于A1:W162 的范围。第一部分是字符串"A1:" 和Range("A1).End(xlDown).end(xlToRight).Address 返回字符串"$W$162" 他们一起形成"A1:$W$162"

考虑到我对您的问题所做的评论，我建议使用以下代码。

Dim wsData as Worksheet 'Add worksheet variable

Set wsData = ThisworkBook.Worksheets("Name of your data sheet")

With wsData.Sort 'Instead of using ActiveSheet
    .SetRange wsData.Range(wsData.Cells(1, 1), wsData.Cells(1, 1).End(xlDown).End(xlToRight))