[µo°Ý] ½Ð±Ð¦U¦ì¤j­ôÃö©óvba

asd1251

½Ð±Ð¤@¤U¦U¦ì«e½ú¡A¦p¥H¤Uµ{¦¡¡A¸Ó¦p¦ó§¹µ½¥¦¡A¹ïvba¹ê¦b¬O¤@ª¾¥b¸Ñ¡Aºô¤W·j´M¤F«Ü¦h¨Ò¤l¡A¦ý¹ê¦b¬O.....¦³¤ßµL¤O¡A·Ð½Ð¦U¦ì«e½ú©âªÅ¸Ñµª¡AÁÂÁÂ

1. Sub test()
   
2. 
   
3. '1 ¿ï¾ÜFÄæ²Ä¤G¦CÀx¦s®æ(°j°é)
   
4. For i = 2 To 300
   
5. Cells(i, "f").Select
   
6.     If Cells(i, "f") <> "" Then
   
7.         '2 ¨ú±oFÄæÀx¦s®æªº­È(aaa)
   
8.         Dim var As String<<<<<<<<<³oÃä¨ä¹ê¬O§Ú¦Û¤v²qªº
   
9.         var = Cells(i, "f")<<<<<<<<<³oÃä¨ä¹ê¬O§Ú¦Û¤v²qªº
   
10.             '3 ¿ï¾Ü²Äi¦C,°Å¤U²Äi¦C
    
11.             Rows(i).Select
    
12.             Selection.Cut
    
13.                 '4 ¿ï¾Üb¤u§@ªí¡A²¾¨ìFÄæ²Ä¤G¦C
    
14.                 Sheets("b").Select
    
15.                 Range("F2").Select
    
16.                 '5 ·j´Mb¤u§@ªíFÄæÀx¦s®æ­È(aaa) , §ä¥X¦P¼Ëªº­È¡A¦pªG¦³¦P¼Ëªº­È¡A´N²¾¨ì¦P­Èªº³Ì¤U¤@¦C¡A¦A¤U²¾¤@¦C¡A¦pªG¨S¦³¦P­È¡A´N²¾¨ìfÄ檺³Ì«á¤@¦C
    
17.                 ³o¤@¬q´N§¹¥þ¤£ª¾¹D¦p¦ó¤U¤â
    
18.            
    
19. 
    
20.                 '6 ¶K¤W¾ã¦C
    
21.                 Selection.Insert Shift:=xlDown
    
22.                 '7¿ï¾ÜA¤u§@ªí
    
23.                 Sheets("A").Select               
    
24.     Else
    
25. Exit For
    
26.     End If
    
27. Next i
    
28. 
    
29. End Sub

½Æ»s¥N½X

asd1251

¦^´_ 2# ­ã´£³¡ªL


¦h¾Ç¤F¤@­ÓFor Eachªº¥Îªk ¡A·PÁÂ

asd1251

ÁÂÁªO¥D©âªÅ¸Ñµª¡AªGµM¬O°ª¤â~~
§Ú¨Ó¥h¬ã¨s¬ã¨s¡A´ú¸Õ´ú¸Õ¡A
¦A¦¸·PÁÂ

­ã´£³¡ªL

Sub AX1011()
Dim xR As Range, xE As Range, xF As Range
For Each xR In Range([A!F2], [A!F65536].End(xlUp))
¡@¡@If xR = "" Then GoTo 101
¡@¡@'¡õ¨ú±o¢Ðªí³Ì«á¤@µ§¸ê®Æ¦ì¸m¡@
¡@¡@Set xE = [B!F65536].End(xlUp)
¡@¡@'¡õ´M§ä¢Ðªí²Å¦X­È³Ì«á¤@µ§¦ì¸m¡@
¡@¡@Set xF = [B!F:F].Find(xR, After:=xE(2), SearchDirection:=xlPrevious, Lookat:=xlWhole)
¡@¡@'¡õ­Y¦³§ä¨ì²Å¦X­È¡A¤U¤è´¡¤J¤@¦C¡A¨Ã±NÀx¦s®æÅܼƥN´«¬°xE¡@
¡@¡@If Not xF Is Nothing Then xF(2).EntireRow.Insert: Set xE = xF
¡@¡@'¡õ¾ã¦C¶K¦ÜxEªº¤U¤@¦C¡@
¡@¡@xR.EntireRow.Copy xE(2).EntireRow
101: Next
End Sub