ikboy

try this:

1. Sub Step1()
   
2. '§R°£ key word : ¤½¥q / ³æ§O: / ¤é´Á* / ²£«~¤jÃþ: / ®Ö­ã / ¦X­p* / ²Î­p*
   
3. Dim reg As Object, a, rng As Range, z&
   
4. a = Range("a1:a" & Cells(Rows.Count, 1).End(3).Row).Value
   
5. z = UBound(a)
   
6. Set rng = Rows(z + 1)
   
7. Set reg = CreateObject("vbscript.regexp")
   
8. With reg
   
9.     .Pattern = "ªÅ¥Õ|¤½¥q|³æ§O:|¤é´Á|²£«~¤jÃþ:|®Ö­ã|¦X­p|Á`­p"
   
10.     For i = 1 To z
    
11.         If .test(a(i, 1)) Then
    
12.             Set rng = Union(rng, Rows(i))
    
13.         End If
    
14.     Next
    
15. End With
    
16. rng.Delete
    
17. Set rng = Nothing
    
18. End Sub

½Æ»s¥N½X