[µo°Ý] ¥Î Find §ä¤p©óµ¥©ó(<=)¬Y­È ªº Range

Scott090

¤@ª½¥Î°}¦Cªº¤è¦¡¤@­Ó­Ó¦a§ä
´N¨S¯à§ä¥X¥Î Find ªº¤èªk¦p¦ó¹F¨ì¥Øªº

½Ð¹F¤H°ª¤â ¤£§[½çª¾

GBKEE

¦^´_ 1# Scott090
Find ¤èªkªº°Ñ¼Æ LookAt  ¿ï¾Ü©Êªº Variant¡C¥i¬°¤U¦C XlLookAt ±`¼Æ¤§¤@¡GxlWhole ©Î xlPart¡C
Find ¤èªk¬O·j´M¦r¦ê¤£¬O¼Æ­È,©Ò¥H Find µLªk§ä¤p©óµ¥©ó(<=)¬Y­È ªº Range

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

Scott090

¦^´_ 2# GBKEE

ÁÂÁ¤j®v«ü©ú¤F­nÂI
¼Æ­È¤å¦r¤Æ«á¡A¥Î xlPart À³¥i¥H§ä¨ì .....

Scott090

¦^´_ 3# lpk187

¥tÅPÁÑ®|¹F¨ì¥Øªº

¨ØªA¡AÁÂÁÂ