如果单元格中存在某些值，将删除行的Excelmacros，然后将连接？
我似乎无法拼凑在一起的VBA代码将删除行，如果某些单元格中存在的string。 我可以很容易地做到这一点，但不知道如何包括多个string。
我已经得到了最后一部分，这很容易，只是将一个连接公式应用到一个范围，但我已经尝试了很多东西来获得第一部分的权利，没有任何工作。
下面是我一起入侵的，只有一个特定的string在“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
或者，这是Select Case一个很好的例子：
Select Case Trim(LCase(.Value)) Case "none", "subtotal", "estimate", "empty": .EntireRow.Delete End Select
我想你只需要在下面添加所有的条件
If .Value = "None" Or .Value = "Subtotal" Or .Value = "Estimate" Or .Value = "Empty" Then .EntireRow.Delete