宏按选定列排序

Question

我对宏很新，所以我需要帮助。我想按选定的列对Excel工作表进行排序。例如，如果我有三列＆＃34; column1，column2和column3＆＃34;，我希望能够选择三列中的一列来对整张表进行排序

Answer 1

以下是使用 Header 单元格进行降序排序的简单示例：

Sub SortsRUs()
    Set r = Application.InputBox("Click on a cell in the sort column", Type:=8).EntireColumn(1)
    ActiveSheet.UsedRange.Sort Key1:=r, Order1:=xlDescending, Header:=xlNo, _
            OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
            DataOption1:=xlSortNormal
End Sub