如何利用宏实现在EXCEL单元格中输入一个值时,隐藏表中的某一行或几行

当Sheet1!A1输入“联络”，则隐藏Sheet2!中的滴4-6行，
当Sheet1!A1输入“单位”，则隐藏Sheet2!中的滴11-12行

VBA程序代码如下：
SUB 宏1()
    IF SHEET1.RANGE("A1")="联络" THEN RANGE("4:6").HIDDEN
       IF SHEET1.RANGE("A1")="单位" THEN RANGE("11:12").HIDDEN
END SUB

隐藏行代码： sub aa() for i = 1 to 10 rows(i).hidden = true next i end sub 取消隐藏代码： sub bb() for i = 1 to 10 rows(i).hidden = false next i end sub 打开excel后按alt+f11键，进入vbe编辑器，复制粘贴上面的代码。 切换到excel表格，执行开发工具-宏-插入-表单控件，选择按纽后，插入，为按纽指定宏，分别指向aa和bb这两个宏名，然后就可以使用了。点第一个按纽，隐藏行，点第二个按纽，取消隐藏。