Sub SortSelectedRangeDescending()
    Dim rng As Range
    Set rng = Selection ' 选择您要排序的目标范围
    
    rng.Sort Key1:=rng.Columns(1), Order1:=xlDescending, Header:=xlNo
End Sub

这篇文章介绍了如何使用 VBA 在 Excel 中对选定的单元格范围进行降序排序。

代码说明

  1. Dim rng As Range: 声明一个名为 “rng”、类型为 Range 的变量。该变量将用于存储选定的范围。

  2. Set rng = Selection: 将当前选定的范围赋值给 “rng” 变量。在运行这段代码之前，用户需要在 Excel 中手动选择范围。

  3. rng.Sort Key1:=rng.Columns(1), Order1:=xlDescending, Header:=xlNo: 这行代码对选定的范围执行排序操作。它使用 Range 对象的 “Sort” 方法。”Key1” 参数指定范围的第一列作为排序键。”Order1” 参数设置为 “xlDescending”，表示排序顺序为从大到小。”Header” 参数设置为 “xlNo”，表示范围没有标题行。

    如需从小到大排序，将 xlDescending 修改为 xlAscending。

要使用这段代码，请按照以下步骤进行操作：

  1. 打开 Excel，进入包含要排序数据的工作表。

  2. 选择要排序的范围。

  3. 按下 Alt+F11 打开 VBA 编辑器。

  4. 通过点击菜单中的 “插入”，然后选择 “模块” 来插入一个新模块。

  5. 将提供的代码粘贴到模块中。

  6. 关闭 VBA 编辑器。

  7. 按下 Alt+F8 打开 “宏” 对话框。

  8. 从列表中选择 “SortSelectedRangeDescending” 宏，然后点击 “运行”。