Excel 如何连续运行宏?

Excel 如何连续运行宏?,excel,vba,Excel,Vba,在我的excel工作表中,我有一个每秒更新一次的动态数据,在这个工作表中,我希望U列按降序排序,以便对应的列。我找到了一个解决方法,在模块中放置了下面的代码,每次我希望U列按降序排序时都必须“运行Sub(F5)” 现在我的问题是如何让这个“Run Sub(F5)”自动运行 这是我的密码 Sub sortononecol() Range("A1").CurrentRegion.Sort Key1:=Range("U1"), order1:=xlDescending, Header:=xlYes E

在我的excel工作表中,我有一个每秒更新一次的动态数据,在这个工作表中,我希望U列按降序排序,以便对应的列。我找到了一个解决方法,在模块中放置了下面的代码,每次我希望U列按降序排序时都必须“运行Sub(F5)”

现在我的问题是如何让这个“Run Sub(F5)”自动运行

这是我的密码

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

将其放入工作表的代码表中

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列中的值时才需要重新排序。

连续到底是什么意思?你需要更加精确。请回答原始问题并举例说明。除非U列包含引用其他工作表或工作簿的公式
Application.OnTime
是另一个选项,但它很混乱,您需要记住在关闭工作簿时禁用它。