Question

如果单元格中存在某些字符串，我似乎无法拼凑出将删除行的VBA代码。我只能轻松地做一个，但无法弄清楚如何包含多个字符串。

我已经完成了最后一部分，这很容易，只是将一个连接公式应用到一个范围，但我已经尝试了很多东西来使第一部分正确并且没有任何作用。

下面是我一起攻击的内容，只有当一个特定字符串在其中时才会删除行＆＃34;无＆＃34;。如果单词＆＃34; Subtotal＆＃34;，＆＃34; Estimate，＆＃34; Empty＆＃34;我还需要删除行。在细胞中。

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)"

感谢您的帮助!!!

Answer 1

或者，这是Select Case的一个很好的例子：

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

Answer 2

我认为这会起作用

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

Answer 3

我认为您只需添加所有条件，如下所示

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

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

3 个答案: