Hsieh

¦^´_ 7# hsiaohsien

1. Sub ex()
   
2. Dim ar()
   
3. fs = ThisWorkbook.Path & "\FWlog.txt"
   
4. Open fs For Input As #1
   
5. Do While Not EOF(1)
   
6.     Line Input #1, TextLine
   
7.     For Each a In Sheet2.[A1:A4]
   
8.       If InStr(TextLine, a) > 0 Then
   
9.       ReDim Preserve ar(s)
   
10.       ar(s) = TextLine
    
11.       s = s + 1
    
12.       End If
    
13.     Next
    
14. Loop
    
15. Close #1
    
16. For i = 0 To UBound(ar)
    
17. Sheet1.Cells(i + 1, 1) = ar(i)
    
18. Next
    
19. End Sub

½Æ»s¥N½X