Sub myHide()
Dim Rng As Range
If ActiveWindow.RangeSelection.Count = 1 Then End '如果不是多选就结束
For Each Rng In ActiveWindow.RangeSelection '历遍每个选择区里单元格
If Rng.Value = "条件" Then '如果有单元格符合条件
ThisWorkbook.ActiveSheet.Rows(Rng.Row).Hidden = True '隐藏这一行
End If
Next
End Sub
用宏遍历一遍在用的行,如果改行状态为隐藏,则记录该行号,并且将结果存放在指定(某个)单元格中
If then