问 在Excel中使用VBA sub进行升序/降序排序

EN

我想对Excel中的大量数据进行排序。它应该在每次点击时在升序和降序之间切换。

我发现这个问题在下一个线程中得到了解决： sort ascending/descending vba excel 。

但是我想在代码中做一些修改。我想使用我单击的当前列(标题)进行排序。我不知道这是否可能，只使用一个宏并将单元格发送到我调用事件的位置。

下面是我使用的代码：

工作表(我在其中调用Sub)：

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Selection.Count = 1 Then
        If Not Intersect(Target, Range("A2:C2")) Is Nothing Then
            Call sort_table(Target)
        End If
    End If
End Sub

Sub：

Sub sort_by_letters(Order As Range)
    Dim dataRange As Range
    Dim fieldOrder As Range
    Dim xlSort As XlSortOrder
    Dim LastRow As Long
    With ActiveSheet
        Set LastRow = .Cells(.Rows.Count, Order).End(xlUp).Row
    End With
    If (Order.Value > Range(Column(Order) & CStr(LastRow))) Then
        xlSort = xlAscending
       xlSort = xlDescending
    End If
    Set dataRange = Range("A2:C" & LastRow)
    Set campoOrden = Order
    dataRange.Sort key1:=fieldOrder, order1:=xlSort, Header:=xlYes
End Sub