用VBA 如何实现:参照A列,把F列的值按从大到小排序

在 VBA 中，你可以使用 `Sort` 函数结合数组或 Range 对象来实现对工作表数据的排序。假设 A 列是索引列，F 列是你想要根据其值排序的列，下面是一个简单的步骤：

Sub SortData()
    ' 定义需要排序的范围，这里是 A 列和 F 列
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 替换 "Sheet1" 为你实际的工作表名称
    Dim rng As Range
    Set rng = ws.Range("A:F")

    ' 指定按 F 列（F(1)）的值降序排序
    With rng.Sort
        .Orientation = xlDescending ' 排序方向
        .SortOn = 2 ' 使用第二列（从1开始计数）
        .Header = xlYes ' 如果有标题行，设置为 True
        .Apply
    End With

End Sub

这个 VBA 程序会将工作表 "Sheet1" 上的 A 列和 F 列按照 F 列的值从大到小进行排序。

相关问题

VBA设置当前工作簿为母本工作簿，运行后打开别的工作表运行宏：对A列从大到小排序

您可以使用以下VBA代码来实现您的需求：

Sub SortColumnA()
    Dim wb As Workbook
    Set wb = ThisWorkbook ' 将当前工作簿设置为母本工作簿
    Dim ws As Worksheet
    Set ws = wb.ActiveSheet ' 获取当前活动工作表
    With ws
        .Range("A:A").Sort key1:=.Range("A1"), order1:=xlDescending, Header:=xlYes ' 对A列进行从大到小排序
    End With
End Sub

您可以将以上代码复制到VBA编辑器中（按下Alt+F11打开），然后保存并关闭VBA编辑器。接下来，您可以在任何工作表上运行该宏，它将对该工作表的A列进行排序。请注意，您需要将此代码添加到母本工作簿中的VBA代码模块中。