如何将数组应用于 VBA 中的排序

Question

下面的脚本突出显示了一个数组 B4:F9。

然后我想用数组替换 Ranges (B4:B9) 和 (B4:F9)，以便对数组进行排序。

此数组根据数组的行数/列数而变化。

Sub Macro6()

'Highlights the array
    Range("B4").Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
'
    ActiveWorkbook.Worksheets(I).Sort.SortFields.Clear
    ActiveWorkbook.Worksheets(I).Sort.SortFields.Add2 Key:=Range( _
        "B4:B9"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets(I).Sort
        .SetRange Range("B4:F9")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Answer 1

我不确定这是否是您需要的！尝试告诉我们。

Sub SortSheet1()
    Dim keyRng As Range
    
    ' key range
    Set keyRng = Range(Range("B4"), Range("B4").End(xlDown))
    Debug.Print keyRng.Address
    
    ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort.SortFields.Add2 _
        Key:=keyRng, _
        SortOn:=xlSortOnValues, _
        Order:=xlAscending, _
        DataOption:=xlSortNormal
        
    With ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub