Excel VBA基于包含部分文本的单元格值删除行

我想根据单元格中包含单词“upg”或“upgrade”的单元格值删除行。当这个词出现时，它不是细胞内唯一的词

这是我代码的一部分，它不会删除任何内容：

Sub DeleteValues()


Dim i As Integer
Dim MFG_wb As Workbook
Dim Dep As Integer



Set MFG_wb = Workbooks.Open _
("C:\Users\rosipov\Desktop\eliran\MFG - GSS\MFG Daily\Fast Daily " & Format(Now(), "ddmmyy") & ".xlsx", _
UpdateLinks:=False, IgnoreReadOnlyRecommended:=True)
MFG_wb.Sheets("Aleris").Activate

Dep = MFG_wb.Sheets("Aleris").Range("B2").End(xlDown).Row


For i = Dep To 2 Step -1
    Cells(i, 2).Select
    If Not (Selection.Value = "& upg &" Or Selection.Value = "*& upgrade &*") Then
        Rows(i).Delete
    End If
Next i



End Sub

问题是：

For i = Dep To 2 Step -1
    Cells(i, 2).Select
    If Not (Selection.Value = "& upg &" Or Selection.Value = "*& upgrade &*") Then
        Rows(i).Delete
    End If
Next i

使用INSTR（）：

---

嘿，那很管用！谢谢您能告诉我如何使用两个以上的值吗？我想添加选项“Upg”“UPGRADE”和“UPGRADE”。如果您已经在检查Upg，则无需检查升级，要检查任何大小写组合，您可以使其大写UCase（），首先检查Instr（UCase（制造工作表（“Aleris”）.Cells（I，2）.Value），“Upg”）>0或UCase（制造工作表（“Aleris”）。单元格（i，2）。值）如“UPG”

For i = Dep To 2 Step -1
     If Instr(MFG_wb.Sheets("Aleris").Cells(i, 2).Value,"upg")>0 Or Instr(MFG_wb.Sheets("Aleris").Cells(i, 2).Value,"upgrade") >0 Then
        MFG_wb.Sheets("Aleris").Rows(i).Delete
     End If
Next i