Question

在我的Excel工作表中，我每秒都会更新一次动态数据，在此工作表中我希望列U按降序排序，以便对应列。我找到了一个解决方法，我将下面的代码放在Module中，我必须＆＃34;运行Sub（F5）＆＃34;每当我希望列U按降序排序时。

现在我的问题是我怎样才能做到这一点＆＃34; Run Sub（F5）＆＃34;自动运行。

这是我的代码。

Sub sortononecol()
Range("A1").CurrentRegion.Sort Key1:=Range("U1"), order1:=xlDescending, Header:=xlYes
End Sub

Answer 1

将其放在工作表的代码表中。

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("U:U")) Is Nothing Then
        On Error GoTo meh
        Application.EnableEvents = False
        Range("A1").CurrentRegion.Sort Key1:=Range("U1"), order1:=xlDescending, Header:=xlYes
    End If

meh:
    Application.EnableEvents = True
End Sub

由于您的主要排序键是U列，因此只有在删除，添加或修改U列中的值时才需要重新排序。

如何连续运行宏？

1 个答案: