录制的宏想对排序的条件进行设定

阜民丰

各位大侠

      我自己录制了一个宏   是对表格  进行降序排列的


Sub Macro2()
    Rows("3:3").Select
    Selection.AutoFilter
       With ActiveSheet.AutoFilter.Sort
        With .SortFields
            .Clear
            .Add Key:=Range("KH3"), Order:=xlDescending
        End With
        .Header = xlYes
        .MatchCase = False
        .SortMethod = xlPinYin
        .Orientation = xlSortColumns
        .Apply
    End With
End Sub


其中 Range("KH3") 是进行排序的列   我想让这个可以进行设定  比如在   某单元格中录入  A3  他就会按照A列  进行排序
怎样实现

剑指E

比如你的某单元格为Z1，则
把.Add Key:=Range("KH3"), Order:=xlDescending改成
.Add Key:=Range([z1].value), Order:=xlDescending

沈默00

沈默00

没附件，你试一下

沈默00

...............

阜民丰

沈默00 发表于 2024-4-25 13:09
...............

是可以的谢谢