隐藏行,就是问代码怎么写。当 E,F,G,H,I,列有值 就隐藏该行
追答Private Sub Worksheet_Change(ByVal Target As Range)
行数 = UsedRange.Rows.Count
If Cells(1, 1).Value = 1 And 行数 > 1 And Target.Row > 1 Then
If Application.CountA(Range(Cells(Target.Row, "e"), Cells(Target.Row, "i"))) = 5 Then
Target.EntireRow.Hidden = 1
End If
ElseIf Cells(1, 1) = 0 Then
For i = 2 To 行数 - 1
Rows(i).Hidden = 0
Next
End If
End Sub