代码更改下一个单元格，如果在第一个单元格中更改了值

Question

以下是我的代码......

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
'clear contents of dependent cells
On Error Resume Next
If Target.Validation.Type = 3 Then
  Application.EnableEvents = False

  Select Case Target.Column
    Case 6  'clear columns G, H and I
      Range(Target.Offset(0, 1), _
        Target.Offset(0, 2)).ClearContents

    Case 7 'clear column H and I
    Range(Target.Offset(0, 1), _
    Target.Offset(0, 2)).ClearContents

    Case 8  'clear column I
      Target.Offset(0, 1).ClearContents
  End Select
End If

exitHandler:
  Application.EnableEvents = True
  Exit Sub

End Sub

我有4列有依赖下拉列表。 我想要的是当我更改第一列中的值时，接下来的三列应该被清除。但是，以下代码仅将其限制为两列而不是第三列。

请审核并告知如何做到这一点。

由于 萨勒曼