如何用VBA实现Sheet1 A列单元格变更时清除Sheet2对应B列单元格内容

原代码的问题在于直接清除了Sheet2的整个B列，没有匹配Sheet1中变更单元格的行号。以下是修正后的代码，实现只清除对应行的B列内容：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim changedRange As Range
    Dim cell As Range
    
    ' 获取Sheet1中A列发生变更的单元格范围
    Set changedRange = Intersect(Target, Me.Range("A:A"))
    If changedRange Is Nothing Then Exit Sub
    
    ' 禁用事件防止循环触发
    Application.EnableEvents = False
    
    On Error GoTo Cleanup ' 确保事件状态能恢复
    
    ' 遍历每个变更的单元格，清除Sheet2对应行的B列内容
    For Each cell In changedRange
        Sheets("Sheet2").Cells(cell.Row, "B").ClearContents
    Next cell

Cleanup:
    Application.EnableEvents = True
End Sub

代码说明： #

• changedRange：精准定位Sheet1中A列实际发生变更的单元格，避免不必要的操作
• cell.Row：获取变更单元格的行号，对应Sheet2中B列的同一行，实现"对应单元格"的需求
• Application.EnableEvents = False：防止清除Sheet2内容时再次触发Worksheet_Change事件，造成循环
• 错误处理On Error GoTo Cleanup：即使代码执行出错，也能恢复事件启用状态，避免后续功能失效

内容的提问来源于stack exchange，提问作者jenisdoe