当另一个单元格发生更改时清除特定单元格

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ChangeRange As Range
    Dim ClearRange As Range
    
    ' 定义需要监控的单元格范围
    Set ChangeRange = Range("A1:A10")
    ' 定义需要清除的单元格范围
    Set ClearRange = Range("B1:B10")
    
    ' 判断是否有交集，即另一个单元格发生更改时清除特定单元格
    If Not Intersect(Target, ChangeRange) Is Nothing Then
        Application.EnableEvents = False ' 禁用事件处理，避免进入无限循环
        ClearRange.ClearContents ' 清除特定单元格的内容
        Application.EnableEvents = True ' 启用事件处理
    End If
End Sub