excel - 根据 Excel 中另一个单元格的条件清除单元格值

Question

单元格A1:A6有一个用户输入值，单元格B1:B6有一个公式，单元格C1:C6有一个结果如果单元格 A1 值被删除，内容可以从中清除C1，我试过这个，但它不起作用。

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1:A6")) Is Nothing Then
    Range("C1:C6").ClearContents
    End If
End Sub

标签： excelvba

Answer 1

试试下面的代码 -

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1:A6")) Is Nothing Then
        If Target = "" Or Target = Null Then
            Target.Offset(0, 2).ClearContents
            'Target.Offset(0, 2) = ""
            'Range("C1:C6").ClearContents
        End If
    End If
End Sub