Excel-VBA - 如何识别在Worksheet_Change函数中删除目标范围（超过1个单元格）？

Question

我试图找到用户是否删除列B中某些单元格中的值，然后使用worksheet_change函数删除列X中相同行中的单元格。

当我只删除B列中的一个单元格时，IsEmpty（Target）返回true，我能够清除X列中的同一行单元格。

但是，当在列B中选择多个单元格并按删除按钮时，IsEmpty（目标）将返回False。 现在这里Target是多个细胞的范围。 我找不到一种方法来查找用户是否同时删除了B列中的值范围。 任何帮助将非常感激。

下面的代码在删除一个单元格时起作用，但在删除一系列单元格时起作用。

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Column <> 2 Then Exit Sub
    If Target.Columns.Count > 1 Then Exit Sub

    If IsEmpty(Target) Then

        Application.EnableEvents = False
        ActiveSheet.Range("X" & Target.Row & ":X" & Target.Row + Target.Rows.Count - 1).ClearContents
        Application.EnableEvents = True
    End If

End Sub

谢谢Uttam

Answer 1

将相关列复制到隐藏工作表（ workSheet.Visible = xlVeryHidden ）中，然后使用WorksheetFunction.CountA比较可见工作表列和隐藏工作表“阴影”列中的非空单元格数。 如果包含内容的单元格数量减少（即内容已被删除），这将快速通知您。

如果是这样，获取观察列的.UsedRange ，找到其中的第一个空单元格，并检查影子列中的相应单元格是否也为空。 如果是，继续下一个空单元格; 如果没有，您知道单元格内容已被删除，您可以删除“X列”中相应的单元格内容。

在每个Worksheet_Change事件之后，您需要制作另一个“影子”副本。

Answer 2

你误解了IsEmpty函数的用途。

我猜你真正想要的是不包含值的单元格（空白单元格）。 以下行将为您提供包含值的单元格计数。 如果它等于零，那么它们都是空白的。

Target.SpecialCells(xlCellTypeConstants).Count

但是，如果所有单元格都为空，则上面的代码行将导致错误。 因此，您必须按如下方式调整代码：

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column <> 2 Then Exit Sub
If Target.Columns.Count > 1 Then Exit Sub

Dim bolIsEmpty As Boolean

On Error GoTo AllAreEmpty
bolIsEmpty = Target.SpecialCells(xlCellTypeConstants).Count = 0
On Error GoTo 0

If bolIsEmpty Then
    ' ... your code here ...
End If

Exit Sub

AllAreEmpty:
    bolIsEmpty = True
    Resume Next

End Sub