使用VBA代码清除合并单元格中相关下拉列表的内容

Question

我有多个相关的下拉列表，当用户更改父内容时，我想清除子下拉列表的内容。 我找到了以下示例代码

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 2  'clear columns C and D
                Range(Target.Offset(0, 1), _
                  Target.Offset(0, 2)).ClearContents
            Case 3  'clear column D
                Target.Offset(0, 1).ClearContents
        End Select
    End If

exitHandler:
    Application.EnableEvents = True
    Exit Sub

End Sub

End Sub

但这对我不起作用，我认为这是由于一个或两个原因造成的：

我的下拉列表位于合并的单元格中；
1. 我使用从右到左的工作表。

我想知道我应该对代码进行哪些更改，以便它可以工作。

谢谢。