父下拉列表变更时清除子下拉列表（合并单元格报错问题）

错误根源 #

运行时错误1004的触发原因是：合并单元格的单个子单元格无法独立执行ClearContents操作。A12是A12-E12合并区域的一部分，直接调用Range("$A$12").ClearContents违反了Excel对合并单元格的操作限制。

两种修复方案 #

方案1：直接指定完整合并区域（已知范围时使用） #

由于你明确A12-E12是合并单元格，直接操作整个区域即可：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅当修改A10合并区域时执行逻辑
    If Not Intersect(Target, Range("A10:E10")) Is Nothing Then
        If Range("A10").Value <> "We believe a check you deposited may not be paid for the following reason:" Then
            Range("A12:E12").ClearContents
        End If
    End If
End Sub

方案2：用MergeArea自动适配合并区域（灵活适配变化） #

如果后续可能调整合并列数，或不确定合并范围，使用MergeArea属性自动获取整个合并区域：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅当修改A10合并区域时执行逻辑
    If Not Intersect(Target, Range("A10:E10")) Is Nothing Then
        If Range("A10").Value <> "We believe a check you deposited may not be paid for the following reason:" Then
            Range("A12").MergeArea.ClearContents
        End If
    End If
End Sub

额外优化说明 #

原代码未限制触发条件，工作表中任何单元格修改都会执行逻辑，增加冗余开销。修复后的代码通过Intersect判断，仅当修改的是A10的合并区域时才执行，提升效率。

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