excel宏或者vba,怎么把包含特定内容的行删除,并删除和该行某列内容一样的行
aa true
aa fail
bb true
cc fail
类似这种要把带fail的全删除,并且第一列相同内容的也删除,如带aa的2行 带cc的一行
ä½ éé¢çFailæ¯åå æ ¼éé¢ç±»å®¹çå ¨é¨åæè Failåªæ¯ä¸é¨åï¼
å¦ææ¯è¿æ ·å¯ä»¥ä½¿ç¨ VBAå¶ä½
第ä¸æ¥ï¼å»æææ带Failçè¡.
第äºæ¥ï¼å»æéå¤è¡.
æ°æ®å¨Aå,å ³é®åFailå¨Bå,å¦ä¸ä»£ç å»é¤Aåéå¤,å»é¤Båå å«Fail:
~~~~~~~~~~~~~~~~
Sub ChekingKeyWordsAndKeepOnly()
Dim i, j
i = 1
While Cells(i, 1) <> ""
For j = 1 To 10
If LCase(Cells(i, j).Value) = LCase("FAIL") Then
Rows(i).Delete
Exit For
End If
If j = 10 Then
i = i + 1
End If
Next j
Wend
i = 1
While Cells(i, 1) <> ""
j = i + 1
While Cells(j, 1) <> ""
If Cells(j, 1).Value = Cells(i, 1).Value Then
Cells(j, 1).Delete
Else
j = j + 1
End If
Wend
i = i + 1
Wend
End Sub
追é®å ¨é¨ï¼ä¸åéé¢å¼åªæ两ç§ï¼fail true