lpk187

¦^´_ 7# boblovejoyce

¸Õ¸Õ

1. Sub test()
   
2. i = 0
   
3. Dim arr2()
   
4. Set Rng = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
   
5. arr = Range("J2:J" & Cells(Rows.Count, 10).End(xlUp).Row)
   
6. For Each ar In arr
   
7. ReDim Preserve arr2(i)
   
8.     Set zz = Rng.Find(ar, , , , , 2)
   
9.     Set aa = Rng.Find("  (net ", Range(zz.Address), , , , 2)
   
10.     arr2(i) = aa
    
11.     arr2(i) = Right(arr2(i), Len(arr2(i)) - 7)
    
12.     i = i + 1
    
13. '    '²¾°£«e­±8­Ó¦r¤¸
    
14.   Next
    
15.    Range("K2").Resize(UBound(arr2) + 1) = Application.WorksheetFunction.Transpose(arr2)
    
16. End Sub

½Æ»s¥N½X

lpk187

¦^´_ 7# boblovejoyce

°õ¦æ®É¶¡¬ù2.2¬í

1. Sub test()
   
2. t = Timer
   
3. i = 0
   
4. Dim arr2()
   
5. Set Rng = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
   
6. arr = Range("J2:J" & Cells(Rows.Count, 10).End(xlUp).Row)
   
7. For Each ar In arr
   
8. ReDim Preserve arr2(i)
   
9.     Set zz = Rng.Find(ar, , , , , 2)
   
10.     Set aa = Rng.Find("  (net ", Range(zz.Address), , , , 2)
    
11.     arr2(i) = aa
    
12.     arr2(i) = Right(arr2(i), Len(arr2(i)) - 7)
    
13.     i = i + 1
    
14. '    '²¾°£«e­±8­Ó¦r¤¸
    
15.   Next
    
16.    Range("K2").Resize(UBound(arr2) + 1) = Application.Transpose(arr2)
    
17. MsgBox Format(Timer - t, "0.0000")
    
18. End Sub

½Æ»s¥N½X

lpk187

¦^´_ 1# boblovejoyce

¤ÏÂЪº°õ¦æ§Aªº­ìµ{¦¡¡A°õ¦æªº®É¶¡«Üªøªº­ì¦]¬O¸ê®Æ¹L¦h¡Aªñ8¸U¦æªº¸ê®Æ
¦Ó²Ä¤@­ÓFind´M§ä¤S¬O¦V¤U´M§ä¡Aµ²ªG§äªº¸ê®Æ³£«á­±¡A¥ú¬O²Ä¤@­ÓFind´N¥Î±¼«Ü¦h®É¶¡
§Ú¸Õ¤F¦V¤W´M§ä¡A¾ãÅ骺®É¶¡®t¤Fªñ20¬í¡AÁÙ¦³Select¡B Selection¡BActivate¤]·|¦]¬°¿Ã¹õªº³B²z³t«×¼vÅT¨ì¾ãÅé´M§äªº³t«×

lpk187

¦^´_ 12# boblovejoyce

¦pª©¤jªº¦^µª¡A»Ý­n¨º»ò¦h³rÂI¡A¬O¬Ù²¤°Ñ¼Æ©ÎÀq»{¹w³]­È¡A³Ì«áªº2«h¬OXlSearchDirectionªº­È¦p¤U»¡©ú¡A¥¦¥i¥H¥Î¦WºÙ©Î­Èªí¥Ü¤§
¦WºÙ               ­È         ´y­z
xlNext            1    ·j´M½d³ò¤¤ªº¤U¤@­Ó²Å¦X­È¡C
xlPrevious     2     ·j´M½d³ò¤¤ªº¤W¤@­Ó²Å¦X­È¡C

¤U¸ü (5.3 KB)

2015-5-29 20:53