ML089

1. Sub ex()
   
2.     For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
   
3.         For Each x In Array("", "TPD", "TPD-both", "TPD-viewing", "GSA")
   
4.             If Cells(i, 1) = x Then Cells(i, 1).EntireRow.Delete
   
5.         Next
   
6.     Next
   
7. End Sub

½Æ»s¥N½X

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

ML089

¦^´_ 13# jsc0518

³Ì«á¤@¦C Range([A1], ActiveSheet.UsedRange).Rows.Count °Ñ¦Ò14¼Ó

Sub ex()
    For i = Range([A1], ActiveSheet.UsedRange).Rows.Count To 1 Step -1
        For Each x In Array("", "TPD", "TPD-both", "TPD-viewing", "GSA")
            If Cells(i, 1) = x Then Cells(i, 1).EntireRow.Delete
        Next
    Next
End Sub