Hsieh

¦^´_ 1# §±æ¢
¥X³f³æ¼Ò²Õ

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Dim Ar(), s%
   
3. Application.EnableEvents = False
   
4. If Target.Address = "$H$5" Then
   
5. With Sheets("¥X³f²M³æ")
   
6.    For Each a In .Range(.[L3], .[L3].End(xlDown))
   
7.      If a = Target Then
   
8.      m = a.Offset(, -2).Value
   
9.         ReDim Preserve Ar(s)
   
10.         Ar(s) = Application.Transpose(Application.Transpose(a.Offset(, -11).Resize(, 8).Value))
    
11.         s = s + 1
    
12.      End If
    
13.    Next
    
14. End With
    
15. Range([A9].Resize(, 8), [A9].Resize(, 8).End(xlDown)).ClearContents
    
16. [C3] = m
    
17. [A9].Resize(s, 8) = Application.Transpose(Application.Transpose(Ar))
    
18. End If
    
19. Application.EnableEvents = True
    
20. End Sub

½Æ»s¥N½X