ikboy

¦^´_ 1# jsc0518

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

½Æ»s¥N½X