Hsieh

¦^´_ 1# 3083kbna

1. Sub nn()
   
2. Dim Rng As Range
   
3. [E3:F1000].EntireRow.Hidden = False
   
4. For Each a In [E3:F1000]
   
5.   If a = 0 Or a = "" Then
   
6.      If Rng Is Nothing Then
   
7.         Set Rng = a
   
8.         Else
   
9.         Set Rng = Union(Rng, a)
   
10.      End If
    
11.     End If
    
12. Next
    
13. If Not Rng Is Nothing Then Rng.EntireRow.Hidden = True
    
14. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 3# 3083kbna

1. Sub nn()
   
2. Dim Rng As Range
   
3. [E3:F1000].EntireRow.Hidden = False
   
4. For Each a In [E3:E1000]
   
5.   If Application.Sum(a.Resize(, 2)) = 0 Then
   
6.      If Rng Is Nothing Then
   
7.         Set Rng = a
   
8.         Else
   
9.         Set Rng = Union(Rng, a)
   
10.      End If
    
11.     End If
    
12. Next
    
13. If Not Rng Is Nothing Then Rng.EntireRow.Hidden = True
    
14. End Sub

½Æ»s¥N½X

Hsieh

For Each a In [E3:E1000]
  If (a= 0 or a="") and (a.offset(,1)=0 or a.offset(,1)="" )Then