如果兩個單元格包含特定文本，如何刪除整行

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