Excel工作表更改事件不会在多个单元格被删除时发生

我有代码来触发一个改变事件，将诉诸我的数据。 该图表在AD栏中有信息。 代码触发数据随时在列D中的值改变。 当我input新的数据时，以及当我删除列D中的单元格的内容，但是，如果我select在某一行的列AD中的信息，然后点击删除，删除所有四个单元格的内容与数据在那一行，事件不会触发。 为了做到这一点，我需要改变什么？ 代码是

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 4 Then Application.EnableEvents = False Range(Cells(1, 1), Cells(90, 1)).Select ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Sheet2").Sort.SortFields.Add Key:=Range(Cells(2, 1), Cells(90, 1)) _ , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Sheet2").Sort .SetRange Range(Cells(1, 1), Cells(90, 4)) .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Range("E4").Select Application.EnableEvents = True End If End Sub 

Answer 1

你用过：
If Target.Column = 4 Then

尝试使用：
If Not Intersect(Target, Range("D:D")) Is Nothing Then