Hsieh

¦^´_ 1# 013160

1. Private Sub TextBox1_Change()
   
2. Dim Ar()
   
3. With Sheets("NEW¼t+®w¦s")
   
4.   For Each a In .Range(.[C5], .[C5].End(xlDown))
   
5.      If a = TextBox1 Then
   
6.         ReDim Preserve Ar(s)
   
7.         Ar(s) = Array(a.Offset(, 1).Value, a.Offset(, 2).Value)
   
8.         s = s + 1
   
9.      End If
   
10.    Next
    
11.    Range([B2], [C2].End(xlDown)).ClearContents
    
12.    [B2].Resize(s, 2) = Application.Transpose(Application.Transpose(Ar))
    
13. End With
    
14. End Sub

½Æ»s¥N½X