Question

我是新手，我是自学成才，所以如果有什么我做错了，请告诉我。

我有一个清单，其中两列包含下拉列表; 1个父项和1个从属项（从属项是父项右侧的1个单元格）。下面的代码用于在更改父列表时清除依赖列表，并且该部分可以正常工作。

但是，如果我复制粘贴包含列表的单元格（我在清单中有很多项目，所以我这样做是为了节省时间），然后清除最左边单元格右侧的每个单元格，包括右边的一个附加单元格。

e.g。 A1包含父列表，B1包含从属列表，C1包含其他信息。我复制将三个单元格粘贴到第2行.A2保持不变，但B2和C2为空白（复制的信息不存在），D2清除任何信息。

为什么会这样？

代码：

 Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Target.Column = 3 Then 'The Parent list is in Column C
      If Target.Validation.Type = 3 Then
       Application.EnableEvents = False
       Target.Offset(0, 1).ClearContents 'The Dependent list is in Column D
      End If
    End If

exitHandler:
  Application.EnableEvents = True
  Exit Sub

End Sub

复制粘贴后，依赖的DropDown列表清除它旁边的所有内容

0 个答案: