是否可以有一个动态的排序范围？

Question

我想知道是否可以创建一个宏来对我的工作表进行排序，其范围不断变化？最后一行不是不断变化，而是顶部行数会发生变化。 是否可以让我的 .setrange 成为一个变量，该变量会根据参数使用新范围进行更新？ 例如，我将当前代码设置为从 A5 开始的范围，但如果第 6 - 10 行的内部颜色为绿色，我希望它保留在顶部，并且仅从 A11 开始排序。

activesheet.Sort.SortFields.Clear
activesheet.Sort.SortFields.Add Key:=Range("M6"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With activesheet.Sort
    .SetRange Range("A5:O150") ' I want this range to change constantly without me manually changing, for example it would be from ("A10:0150") now
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With

Answer 1

此 UDF 将返回一个范围对象，该对象表示您的排序范围，该范围由包含“白色”内部的第五列中的第一行数据定义（不包括第一行，除非那是唯一具有白色内部的行） ：

Option Explicit
Private Function SortRange(baseRange As Range) As Range
    Dim firstCell As Range, lastCell As Range, C As Range

With baseRange
    Set lastCell = .Worksheet.Cells(.Row + .Rows.Count - 1, .Column + .Columns.Count - 1)
End With

With Application.FindFormat
    .Clear
    .Interior.Color = vbWhite
End With

'find the first cell in fifth column that is white
'As implemented, this should be column E, but if you move the range, it will adjust to the 5th column
'after the first row in baseRange
With baseRange
    Set firstCell = .Columns(5).Find(what:="*", after:=.Cells(1, 5), searchorder:=xlByRows, searchdirection:=xlNext, searchformat:=True)

    If Not firstCell Is Nothing Then
        With .Worksheet
            Set SortRange = .Range(.Cells(firstCell.Row, 1), lastCell)
        End With
    Else
        MsgBox "no cells to sort"
        Exit Function
    End If
End With

End Function

然后你可以像这样使用它：

.SetRange SortRange(activesheet.range("A3:O150"))

但我建议用实际工作表替换 activesheet。