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

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