excel宏或者vba,怎么把包含特定内容的行删除,并删除和该行某列内容一样的行 aa tr

2024-11-29 03:39:46
推荐回答(1个)
回答1:

你里面的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