Sub 隐藏() Dim sh As Shape For Each sh In ActiveSheet.Shapes If sh.Type = msoFormControl Then If sh.FormControlType = xlGroupBox Then sh.Visible = False End If Next End Sub Sub 显示() Dim sh As Shape For Each sh In ActiveSheet.Shapes If sh.Type = msoFormControl Then If sh.FormControlType = xlGroupBox Then sh.Visible = True End If Next End Sub