Excel中二级菜单怎么能随一级菜单的改变而清空?

提问：Excel中二级菜单怎么能随一级菜单的改变而清空?

网友回答：

这种情况要用VBA代码来实现。前提条件是：A列为一级菜单所在列，B列为二级菜单所在列，都是从第二行开始。（如果不是，代码做一个简单修改即可）

1、按ALT+F11进入VBA编辑器。

2、在左而工程-VBAproject窗口选中数据所在的sheet,将下便代码复制过去即可。

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 = 1 Then  '修改A列            

                 Rng.Offset(0, 1).ClearContents '清除B列  

             End If      

       Next 

End Sub