eric093

¦^´_ 2# Hsieh


    ·PÁ¡I§Ú®M¤J«á¡A¸ê®Æ¨Ó·½²Å¦X¦W³æªº¥u·|¥X²{¤@¦¸¡A¦pªG¡A¸ê®Æ¨Ó·½¤¤¡A¤H¦W¥X²{¦h¦¸¤]·|¦P¼Ë·|±a¤J¤ñ¹ï¸ê®ÆªººP­¶¡A­n«ç»ò°µ¡H
    ¤£¦n·N«ä¡A§Ú­è­è¨S¦³ªí¹F²M·¡¡I

Hsieh

¦^´_ 1# eric093

1. Sub ex()
   
2. Dim A As Range, Rng As Range, Ar(), s&
   
3. With Sheets("¦W³æ")
   
4.    For Each A In .Range(.[A2], .[A2].End(xlDown))
   
5.    With Sheets("¸ê®Æ¨Ó·½")
   
6.    Set Rng = .[A:A].Find(A, lookat:=xlWhole)
   
7.    If Not Rng Is Nothing Then
   
8.    ReDim Preserve Ar(s)
   
9.    Ar(s) = Application.Transpose(Application.Transpose(Rng.Resize(, 4).Value))
   
10.    s = s + 1
    
11.    End If
    
12.    End With
    
13.    Next
    
14. End With
    
15. With Sheets("¤ñ¹ï«á¸ê®Æ")
    
16. .[A1].CurrentRegion.Offset(1) = ""
    
17. .[A2].Resize(s, 4) = Application.Transpose(Application.Transpose(Ar))
    
18. End With
    
19. End Sub

½Æ»s¥N½X