按条件隐藏行

铁观音的云

各位老师，我有一个表格，请把条件2、条件3、条件4的值都为0的行进行隐藏，如何操作，姓名顺序不要变动，谢谢

3190496160

这是代码才能做的事情

3190496160

Sub 隐藏行()
Dim rn As Range
r = Cells(Rows.Count, 1).End(xlUp).Row
ar = Range("c1:e" & r)
For i = 2 To UBound(ar)
    hj = Application.Sum(Application.Index(ar, i, 0))
    If hj = 0 Then
        If rn Is Nothing Then
            Set rn = Rows(i)
        Else
            Set rn = Union(rn, Rows(i))
        End If
    End If
Next i
If Not rn Is Nothing Then rn.EntireRow.Hidden = True
End Sub

3190496160

根据条件隐藏行.rar (13.26 KB, 下载次数: 15)

2023-5-19 14:13 上传

点击文件名下载附件

三分醉，七分醒

请测试一下

tanglf188

Sub test6()
    On Error Resume Next
    last = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
    For i = 2 To last
        If Cells(i, 3) + Cells(i, 4) + Cells(i, 5) = 0 Then
            ActiveSheet.Rows(i).EntireRow.Hidden = True
        Else
            ActiveSheet.Rows(i).EntireRow.Hidden = False
        End If
    Next
End Sub

nicholaswwg

Sub 隐藏行()
Dim arr
With Sheets("sheet1")
最下行 = .[A605535].End(xlUp).Row
arr = Range("C1:E19")
For i = 1 To 最下行
For o = 1 To 3
If Not IsEmpty(arr(i, o)) And arr(i, o) = 0 Then
Rows(i).EntireRow.Hidden = True
End If
Next o
Next i
End With
End Sub

铁观音的云

3190496160 发表于 2023-5-19 14:12
Sub 隐藏行()
Dim rn As Range
r = Cells(Rows.Count, 1).End(xlUp).Row

代码运行正常，非常感谢！

全党

Sub shishi()
Set dic = CreateObject("scripting.dictionary")
arr = [a1].CurrentRegion
For i = 2 To UBound(arr)
If arr(i, 3) = 0 And arr(i, 4) = 0 And arr(i, 5) = 0 Then
dic(i) = i
End If
Next
For Each k In dic.keys
Rows(dic(k)).EntireRow.Hidden = True
Next
End Sub

全党

试试。。。。。。。。。。。。。。