lpk187

¦^´_ 1# Scott090


´M§ä<=¬Y­È¤£¤@©w­n¥Î.Find¡A¤èªk¦³«Ü¦h¤U­±»¡©ú«h¬O§Q¥ÎVBA¡AFindªº»¡©ú½d¨Ò­×§ïªºµ¹§A°Ñ¦Ò

1. Public Sub Find_1()
   
2. A = 5
   
3. N = 1
   
4. With Worksheets(1).Range("a1:a" & Cells(Rows.Count, "a").End(xlUp).Row)
   
5.     Set c = .Find("*", LookIn:=xlValues, SearchDirection:=2)
   
6.     If Not c Is Nothing Then
   
7.         firstAddress = c.Address
   
8.         Do
   
9.             If c <= A Then
   
10.                 Cells(N, "D") = c.Value
    
11.                 N = N + 1
    
12.             End If
    
13.             Set c = .FindNext(c)
    
14.         Loop While Not c Is Nothing And c.Address <> firstAddress
    
15.     End If
    
16. End With
    
17. End Sub

½Æ»s¥N½X