需求：第8列单元格变更时自动清空右侧第9列单元格内容

我明白你遇到的困扰——切换第8列（H列）的下拉选项时，依赖它的第9列（I列）多选下拉内容没法自动清空，之前的代码只在特定场景生效。下面这个VBA代码应该能完美解决你的需求：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 声明变量
    Dim affectedRange As Range
    Dim cell As Range
    
    ' 只监听第8列（H列）的单元格变更
    Set affectedRange = Intersect(Target, Me.Columns(8))
    
    ' 确认变更的单元格在目标列范围内
    If Not affectedRange Is Nothing Then
        ' 临时禁用事件触发，避免清空操作循环触发Change事件
        Application.EnableEvents = False
        
        ' 遍历所有变更的第8列单元格
        For Each cell In affectedRange
            ' 清空对应行的第9列（I列）单元格内容
            Me.Cells(cell.Row, 9).ClearContents
        Next cell
        
        ' 重新启用事件触发
        Application.EnableEvents = True
    End If
End Sub

代码关键细节说明 #

• Worksheet_Change事件：这是Excel专门监听工作表单元格内容变更的原生事件，不管是手动输入还是下拉选择，只要单元格内容发生变化就会触发。
• Intersect(Target, Me.Columns(8))：精准锁定只有第8列的单元格变更时才执行逻辑，避免无关操作（比如修改其他列）触发代码。
• Application.EnableEvents = False：清空单元格时会再次触发Change事件，这行代码能防止循环调用导致的报错或死循环。
• ClearContents方法：不管第9列的多选下拉是用什么代码实现的，这个方法都能彻底清除单元格内的已选内容，让下拉列表回到初始状态。

注意事项 #

1. 这段代码必须放在对应的工作表模块中：右键工作表标签 → 选择「查看代码」→ 粘贴代码，不要放到标准模块里。
2. 如果你的多选下拉是通过VBA实现的，不用担心冲突——清空单元格内容后，多选下拉的状态会自动重置为未选择状态。
3. 之前的代码可能只在手动输入时生效，是因为没有正确捕获下拉列表的变更动作，这段代码能覆盖所有内容变更场景。

内容的提问来源于stack exchange，提问作者Joël van Dijk