vba - vba中按特定列排序

Question

您好，我需要一些帮助来使用 VBA 对 EXCEL 中的一些数据进行排序。我有这个代码

Dim keyRange As Range
Set strDataRange = Range("A1:AB300")
Set keyRange = Range("W1")
strDataRange.Sort Key1:=keyRange, Header:=xlYes

这个想法是按照 W 列中的数据对 A1:AB300 范围内的所有数据进行排序。问题是代码只是对 W 列进行排序，而不是对其余的列。

感谢您的帮助

Answer 1

尝试这样，将整个范围包含到keyRange并引用工作表:

Sub TestMe()

    Dim keyRange        As Range
    Dim strDataRange    As Range

    With ActiveSheet
        Set strDataRange = .Range("A1:AB300")
        Set keyRange = .Range("W1:W300")
        strDataRange.Sort Key1:=keyRange, Header:=xlYes
    End With

End Sub