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

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

1 个答案: