GBKEE

¦^´_ 1# chiang0320
1. «ç»ò­×§ï¦¨¿ï¨ú  "¾ã¦C(rows) "
¥i­×§ï¦p¤U

1. Option Explicit
   
2. Sub QQQ()
   
3.     Dim i As Long, Target As Range, Rng As Range
   
4.     Set Rng = Range("A1").CurrentRegion.Rows '** ªþÀɸê®Æªº½d³òªºªº©Ò¦³¦C
   
5.     For i = 2 To 11
   
6.         If Rng(i).Cells(2) < 2 Then
   
7.         'If Rng.Range("B" & i) < 2 Then '** ¤]¥i¥H
   
8.             If Target Is Nothing Then
   
9.                 Set Target = Rng(i)
   
10.             Else
    
11.                 Set Target = Union(Target, Rng(i))
    
12.             End If
    
13.         End If
    
14.     Next
    
15.     If Not Target Is Nothing Then Target.Select
    
16. End Sub

½Æ»s¥N½X