GBKEE

¦^´_ 2# ltwinery

1. With Sheets("material").Columns("A")
   
2.             Set rng = .Find(What:=MySearch, LOOKAT:=xlWhole)
   
3.             If Not rng Is Nothing Then
   
4.                 FirstAddress = rng.Address
   
5.                 Do
   
6.                     temp = rng.Offset(0, 1).Text
   
7.                     Set rng = .Find(What:=MySearch, After:=rng)     '¨ç¼Æ¸Ì­n¦³ After:=rng
   
8.                     i = i + 1
   
9.                 Loop While Not rng Is Nothing And rng.Address <> FirstAddress
   
10.             End If
    
11.     End With

½Æ»s¥N½X