如果其单元格值之一包含具有总计/总计的字符串，如何删除工作表中的特定行

Question

如果行的一个单元格包含其中包含总计的值，则需要删除一行。

像单元格值= total-abcd，total-abc例如，如果单元格值包含总计/总计，则可能区分大小写。我必须将其删除范围将是工作表中的任何行。

Answer 1

下面的宏可以满足您的需求。但是，很难想象有一个更简单的宏。您是否知道我如何创建此宏或如何使用它？请指出您对VBA的了解程度，如果您需要这种帮助，我会尽力帮助您。

Option Explicit
Sub DeleteTotalsRow()

  ' Find a row containing "total" (any case) and delete it.

  ' 27Apr20  Coded.

  Dim Rng As Range

  With Worksheets("Data")

    Set Rng = .Cells.Find(What:="total", After:=.Range("A1"), LookIn:=xlFormulas2, _
                          LookAt:=xlWhole, SearchOrder:=xlByRows, _
                          SearchDirection:=xlNext, MatchCase:=False, _
                          SearchFormat:=False)
    If Rng Is Nothing Then
      ' Totals row not found
    Else
      .Rows(Rng.Row).EntireRow.Delete
    End If
  End With

End Sub