这个需要用VBA宏来解决,在这个工作表的底部标签名上点鼠标右键,选“查看代码”,会弹出该工作表的VBA窗口,把下面代码粘贴进去:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 15 Then '第15列对应o列
If Target.Value = "合同已退" Then Rows(Target.Row).EntireRow.Hidden = True
End If
End Sub
Sub 显示()
Cells.EntireRow.Hidden = False
End Sub
Sub 隐藏()
For i = 3 To Range("o65536").End(xlUp).Row
If Cells(i, 15) = "合同已退" Then Rows(i).EntireRow.Hidden = True
Next
End Sub
回到表格窗口,只要在O列输入 合同已退 这四个字,就会自动隐藏该行;另个在“工具-宏-宏”中执行“显示”宏,就能把隐藏的都显示出来;执行“隐藏”宏,能把所有O列是 合同已退 的都隐藏起来。