Excel下拉框联动中的事件

最近项目中用到这个，自己研究了半天

联动自己百度

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Rng As Range
    If Target.Row < 2 Then Exit Sub '修改第一行（标题）退出程序
    For Each Rng In Target
        If Rng.Column = 4 Then
            Rng.Offset(0, 1).Value = ""
            Rng.Offset(0, 2).Value = ""
        End If
        If Rng.Column = 5 Then
            Rng.Offset(0, 1).Value = ""
        End If
    Next
End Sub

此时点击地区时   省份和城市单元格的值会清空