如何在vba中对可变列进行排序？

Sub SortVariableColumn()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim lastColumn As Long
    
    ' 设置要排序的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 获取最后一行和最后一列的索引
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    lastColumn = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
    
    ' 定义要排序的范围
    Dim sortRange As Range
    Set sortRange = ws.Range(ws.Cells(1, 1), ws.Cells(lastRow, lastColumn))
    
    ' 对可变列进行排序
    sortRange.Sort Key1:=sortRange.Columns(lastColumn), _
                   Order1:=xlAscending, _
                   Header:=xlYes
End Sub