Excel 在另一个子单元中调用子单元。我尝试在另一个子单元中调用子单元，以便在修改目标单元时运行代码 那么你的问题是什么？工作表中的是否发生了变化？或者您只是将其粘贴到一个模块中，以为它会工作吗？如果工作表中有更改，则将更改为如果不相交（目标、范围（“AD13:AD

在另一个子单元中调用子单元。我尝试在另一个子单元中调用子单元，以便在修改目标单元时运行代码

---

那么你的问题是什么？工作表中的

是否发生了变化？或者您只是将其粘贴到一个模块中，以为它会工作吗？如果工作表中有更改，则将
更改为
如果不相交（目标、范围（“AD13:AD33”）），则不需要执行任何操作。
当工作表中有更改时，它不会调用该函数
Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "AD13:AD33" Then
    Call OrderByPriorityLvl
    End If
End Sub

Sub OrderByPriorityLvl()

    Rows("13:33").Select
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add2 Key:=Range( _
        "AD13:AD33"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("A13:AI33")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A33").Select
End Sub