如果两个单元格包含特定文本，如何删除整行

Question

如果两个单元格（可以在工作表的任何列中）包含特定的文本，我就需要可以删除整行的VBA代码。

我有一个每日生成的打印报告文件，并且在该文件中的任何列中都包含文本（在非特定列中） "printed BlackWhitepages, total = #"和"printed Colourpages, total = #" 。

＃代表数字，因此在我的文件中可以是0-99999 ....，这取决于打印了多少页。

该文件具有从A到BA列以及成千上万的行，并且根据打印作业，每一列上都可以包含Blackwhitepages和Colourpages文本。

我希望VBA查看整个工作表，如果一行包含"printed BlackWhitepages, total = 0"和"printed Colourpages, total = 0" ，则应删除整行。

Answer 1

尝试以下代码：

Sub DeleteRow()

For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
    VarBnW = 0
    VarCol = 0
    For Each cell In Range("A" & i & ":" & "BA" & i)

        If Trim(cell.Value) = "Gedruckte Schwarzweißseiten, insgesamt = 0" Then VarBnW = 1
        If Trim(cell.Value) = "Gedruckte Farbseiten, insgesamt = 0" Then VarCol = 1

        If VarCol + VarBnW = 2 Then
            MsgBox cell.Address
            cell.EntireRow.Select
            Selection.Delete
            i = i - 1
        End If

    Next cell
Next i

End Sub