Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Then On Error Resume Next If Trim(Target) = "c" Then Columns(7).Hidden = True End IfEnd Sub 在要隐藏的sheet加入以上宏代码