­ã´£³¡ªL

Sub zz2()
Dim T$, xR As Range, xE As Range, R&
T = "_TPD_TPD-both_TPD-viewing_GSA_"
R = Range([A1], ActiveSheet.UsedRange).Rows.Count
Set xE = Range("A" & R + 1)
For Each xR In Range([A1], xE(0))
¡@¡@If xR = "" Or InStr(T, "_" & xR & "_") Then Set xE = Union(xE, xR)
Next
xE.EntireRow.Delete
End Sub

jsc0518

¦^´_ 11# ML089


AÄæªÅ¥Õ®É­YHÄ榳¸ê®Æ ¤£§R°£¶Ü?   --> AÄæªÅ¥Õ¡A¤@«ß­n§R°£

jsc0518

¦^´_ 6# ­ã´£³¡ªL


Dear ikboy / ­ã´£³¡ªL / ML089

§Ú¦bHÄ榳³]©w¸ê®Æ¡A¦ýAÄæ¬OªÅ¥Õªº¡A­YHÄæ¸ê®Æ¬O¦ì©ó³Ì¤U¤è®É¡Aµ{¦¡µLªk§R°£¸Ó¦C

¤U¸ü (52.58 KB)

2017-2-8 15:58

¤U¸ü (28.88 KB)

2017-2-8 15:58

028-01.zip (10.39 KB)

¤U¸ü¦¸¼Æ: 4

2017-2-8 15:59

ML089

¦^´_ 9# jsc0518


AÄæªÅ¥Õ®É­YHÄ榳¸ê®Æ ¤£§R°£¶Ü?

Sub ex()
    For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
        For Each x In Array("", "TPD", "TPD-both", "TPD-viewing", "GSA")
            If Cells(i, 1) = "" And Cells(i, "H") <> "" Then Exit For
            If Cells(i, 1) = x Then Cells(i, 1).EntireRow.Delete
        Next
    Next
End Sub

jsc0518

¦^´_ 6# ­ã´£³¡ªL

±z¦n¡A§Ú¦³´ú¸Õ¹L¡A¦ý¤´¦³¤@¨Ç°ÝÃD¡A­YAÄæ¬OªÅ¥Õªº(§Ú­n§R°£¦C)¡A¦ý¦bHÄ榳¸ê®Æ(§Ú¤£»Ý­n)
¸g´ú¸Õ«á¡A¥¦(HÄê)ªº¸ê®Æ¤´·|¦s¦b¡A¨Ã¤£·|¦]¬°AÄæ¬OªÅ¥Õ¦Ó§R°£¾ã¦C

jsc0518

¦^´_ 3# ML089

±z¦n¡A§Ú¦³´ú¸Õ¹L¡A¦ý¤´¦³¤@¨Ç°ÝÃD¡A­YAÄæ¬OªÅ¥Õªº(§Ú­n§R°£¦C)¡A¦ý¦bHÄ榳¸ê®Æ(§Ú¤£»Ý­n)
¸g´ú¸Õ«á¡A¥¦(HÄê)ªº¸ê®Æ¤´·|¦s¦b¡A¨Ã¤£·|¦]¬°AÄæ¬OªÅ¥Õ¦Ó§R°£¾ã¦C

jsc0518

¦^´_ 7# ikboy


±z¦n¡A§Ú¦³´ú¸Õ¹L¡A¦ý¤´¦³¤@¨Ç°ÝÃD¡A­YAÄæ¬OªÅ¥Õªº(§Ú­n§R°£¦C)¡A¦ý¦bHÄ榳¸ê®Æ(§Ú¤£»Ý­n)
¸g´ú¸Õ«á¡A¥¦(HÄê)ªº¸ê®Æ¤´·|¦s¦b¡A¨Ã¤£·|¦]¬°AÄæ¬OªÅ¥Õ¦Ó§R°£¾ã¦C

ikboy

¦^´_ 4# jsc0518


Sorry ¨S´ú¸Õ, ¤v§ó¥¿:
Sub zz()
Application.ScreenUpdating = 0
Dim x(), rng As Range, ar, Myr&
x = Array("TPD", "TPD-both", "TPD-viewing", "GSA")
Myr = [a65536].End(3).Row
ar = Range("a1:a" & Myr)
Set rng = Cells(Myr + 1, 1)
For i = 1 To UBound(ar)
    If Len(ar(i, 1)) = 0 Then
        Set rng = Union(rng, Cells(i, 1))
    Else
        For j = 0 To UBound(x)
            If InStr(ar(i, 1), x(j)) Then Set rng = Union(rng, Cells(i, 1))
        Next
    End if
Next
rng.EntireRow.Delete
Application.ScreenUpdating = 1
End Sub

­ã´£³¡ªL

­Y¥uÀˬd¢ÏÄ檺¤º®e¡A°Ñ¦Ò¦p¤U¡G
Sub zz2()
Dim T$, xR As Range, xE As Range
T = "_TPD_TPD-both_TPD-viewing_GSA_"¡@'±N¯Á¤Þ­È¥Î"_"³s±µ
Set xE = [A65536].End(xlUp)(2)¡@'³]¢ÏÄæ³Ì«á¤@®æªº¤U¤@®æ¬° xE
For Each xR In Range([A1], xE(0))
¡@¡@If xR = "" Or InStr(T, "_" & xR & "_") Then Set xE = Union(xE, xR)
Next
xE.EntireRow.Delete
End Sub

¸ê®Æ¦hªº¸Ü¡AÀˬd§¹²¦¦A¤@¦¸§R¡A³t«×¸û§Ö¡ã¡ã

jsc0518

¦^´_ 3# ML089

ML089
·PÁ±zªº´£¨Ñ¡A´ú¸Õ¦¨¥\¡AÁÂÁ±z!