我可以删除某些名为“total”的文本，但我也试图同时删除另一个文本

Question

我可以删除某些名为“total”的文本，但我也试图同时删除另一个文本，如何添加第二个或第三个查找。

Sub Macro4（）     Dim c As Range     Dim SrchRng

Set SrchRng = ActiveSheet.Range("C1", ActiveSheet.Range("C65536").End(xlUp))
Do
    Set c = SrchRng.Find("Total", LookIn:=xlValues)
    If Not c Is Nothing Then c.EntireRow.Clear
Loop While Not c Is Nothing

End Sub

Answer 1

尝试一下：

Sub MultiClear()
    Dim SrchRng As Range, c As Range, v As Variant
    Set SrchRng = ActiveSheet.Range("C1", ActiveSheet.Range("C65536").End(xlUp))
    For Each c In SrchRng
        v = c.Value
        If InStr(v, "Total") > 0 Or InStr(v, "happy") > 0 Or InStr(v, "sad") > 0 Then
            c.EntireRow.Clear
        End If
    Next c
End Sub

当然使用您自己的值而不是快乐或悲伤。