register313

1. Sub FIND()
   
2. For i = 1 To 3
   
3.   c = 1
   
4.   Columns(i + 4) = ""
   
5.   Set rng = Columns(i).FIND(i + 4, , , xlWhole)
   
6.   If Not rng Is Nothing Then
   
7.      findrow = rng.Row
   
8.      Do
   
9.        Cells(c, i + 4) = rng.Row
   
10.        c = c + 1
    
11.        Set rng = Columns(i).FindNext(rng)
    
12.      Loop While Not rng Is Nothing And rng.Row <> findrow
    
13.   End If
    
14. Next i
    
15. End Sub

½Æ»s¥N½X

¦^´_ 3# openpc