Vba 如果单元格中存在某些值，Excel宏将删除行，然后将连接？

如果单元格中存在某些字符串，我似乎无法拼凑VBA代码来删除行。我只需要一个字符串就可以轻松地完成，但我不知道如何包含多个字符串

我已经记下了最后一部分，这很简单，只是将一个串联公式应用于一个范围，但我已经尝试了很多方法来纠正第一部分的错误，但没有任何效果

下面是我拼凑的东西，只有当其中有一个特定字符串为“None”时，才能删除行。如果单元格中有“小计”、“估计”和“空”，我还需要删除行

With Sheets("Customer Copy")
    Firstrow = .UsedRange.Cells(1).Row
    Lastrow = .UsedRange.Rows(.UsedRange.Rows.Count).Row
    For Lrow = Lastrow To Firstrow Step -1
    With .Cells(Lrow, "B")
    If Not IsError(.Value) Then

                If .Value = "None" Then .EntireRow.Delete

    End If

        End With

    Next Lrow

End With

    Worksheets("Customer Copy").Range("A1:A200").Formula = "=CONCATENATE(B1, D1, E1)"

---

谢谢你的帮助！！！

我想这会有用的

If .Value = "None" or .Value = "Subtotal" or .Value = "Estimate" or .Value = "Empty" Then

---

我想这会管用的

If .Value = "None" or .Value = "Subtotal" or .Value = "Estimate" or .Value = "Empty" Then

---

我想你只需要在下面添加所有的条件

If .Value = "None" Or .Value = "Subtotal" Or .Value = "Estimate" Or .Value = "Empty"  Then .EntireRow.Delete

---

我想你只需要在下面添加所有的条件

If .Value = "None" Or .Value = "Subtotal" Or .Value = "Estimate" Or .Value = "Empty"  Then .EntireRow.Delete

---

或者，这是

选择案例

的一个好例子：

Select Case Trim(LCase(.Value))
    Case "none", "subtotal", "estimate", "empty":  .EntireRow.Delete
End Select

---

或者，这是

选择案例

的一个好例子：

Select Case Trim(LCase(.Value))
    Case "none", "subtotal", "estimate", "empty":  .EntireRow.Delete
End Select

---

如果.Value=“None”或.Value=“Subtotal”或.Value=“Estimate”或.Value=“Empty”那么.EntireRow.Delete怎么样？您完全正确，先生！：）非常感谢。我也会尝试下面给出的建议。如果.Value=“None”或.Value=“Subtotal”或.Value=“Estimate”或.Value=“Empty”怎么样“那么.EntireRow.Delete？您完全正确，先生！”非常感谢你。我也会尝试下面给出的建议。（+1）我最喜欢你的解决方案，因为它还处理字符串前后的不可见空格（这通常是一个麻烦的来源）和大小写比较。最后，您将所有字符串整齐地组合在一起。这样，OP就可以轻松地扩展他/她希望搜索的字符串。我唯一不太喜欢的是

：

，因为它很容易阻塞代码，使代码变得不清晰。但我想这只是个人喜好。（+1）我最喜欢你的解决方案，因为它还处理字符串前后的不可见空格（这通常是一个麻烦的来源）和大小写比较。最后，您将所有字符串整齐地组合在一起。这样，OP就可以轻松地扩展他/她希望搜索的字符串。我唯一不太喜欢的是

：

，因为它很容易阻塞代码，使代码变得不清晰。但我想这只是个人的口味/偏好。你说得对！我觉得很傻。谢谢你的回答，你说得对！我觉得很傻。感谢您的回答绝对正确，工作完美！真不敢相信我之前没想到！绝对正确，工作完美！真不敢相信我之前没想到！