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

我需要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