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

【问题标题】：I am able to delete certain text named "total" but i am also trying to delete another one at the same time我可以删除某些名为“total”的文本，但我也试图同时删除另一个
【发布时间】：2014-05-22 21:24:40
【问题描述】：

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

子宏4() 调暗 c 作为范围昏暗的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

结束子

【问题讨论】：

其他值是否也会在 C 列中找到？
是的，它们将在同一列中

标签： excel vba

【解决方案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

当然要使用你自己的价值观，而不是快乐或悲伤。

【讨论】：