VBA Worksheet_Change事件出现“Block If without End If”错误，需实现依赖下拉框联动清除功能

我来帮你搞定这个问题！你的代码主要是因为If语句嵌套逻辑混乱导致了语法错误，还有几处小的拼写和判断问题，咱们一步步修正：

先说说原代码的问题点： #

• If嵌套结构完全乱了，多个If没有对应的End If，直接触发了“Block If without End If”错误
• 拼写错误：Application.EnableAnimationsEvents 是错的，应该是 Application.EnableEvents
• 判断数据验证类型时，Target.Validation = 3 写法不对，正确的是 Target.Validation.Type = 3，而且还要先检查单元格是否有数据验证，不然会报错
• 没考虑用户选中多个单元格修改的情况，直接操作Target会出问题

修正后的完整代码 #

下面是实现你需求的正确代码，我加了详细注释方便你理解：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim cell As Range
    On Error GoTo exitHandler ' 错误捕获，避免意外崩溃
    
    ' 先关闭事件触发，防止清除单元格时再次触发Worksheet_Change
    Application.EnableEvents = False
    
    ' 遍历Target中的每个单元格（处理多单元格选中的情况）
    For Each cell In Target
        ' 检查当前单元格是否在E列（第5列），并且有数据验证（类型3是序列，也就是下拉框）
        If cell.Column = 5 Then
            If cell.Validation.Type = 3 Then
                ' 清除同一行的G列（偏移0行，2列）
                cell.Offset(0, 2).ClearContents
            End If
        ' 检查当前单元格是否在H列（第8列），并且有数据验证
        ElseIf cell.Column = 8 Then
            If cell.Validation.Type = 3 Then
                ' 清除同一行的K列（偏移3列）和O列（偏移7列）
                cell.Offset(0, 3).ClearContents
                cell.Offset(0, 7).ClearContents
            End If
        End If
    Next cell

exitHandler:
    ' 不管有没有错误，都要重新开启事件触发
    Application.EnableEvents = True
    Exit Sub
End Sub

代码功能说明： #

• 当E列的下拉框被修改时，自动清除同一行G列的内容
• 当H列的下拉框被修改时，自动清除同一行K列和O列的内容
• 支持用户选中多个单元格修改的场景，不会报错
• 加入了错误捕获，就算出现意外情况也能保证EnableEvents重新开启，避免后续VBA事件失效

备注：内容来源于stack exchange，提问作者droberts26