最近專案中用到這個，自己研究了半天 聯動自己百度

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
此時點選地區時   省份和城市單元格的值會清空