第11集习题2

jbljypx

1. Public Sub 就()
   
2. Dim n As Range, rng As Range, k%, Ad$
   
3. For Each n In Range("A2：C12")
   
4. If IsNumeric(n) And n > 0 Then
   
5. k = k + 1
   
6.     If k = 1 Then
   
7.     Set rng = n
   
8.     Else
   
9.     Set rng = Union(rng, n)
   
10.     End If
    
11. End If
    
12. Ad = rng.Address
    
13. Next
    
14. rng.EntireRow.Select
    
15. End Sub
    

复制代码