vba - Excel VBA删除方法不删除标题

Question

我正在尝试创建一个循环，删除所有没有这两个值的单元格:“OI”或“SI”。

当我执行宏时，我得到:

Delete Method of range class failed

我想通了，这是因为它试图删除标题。

如何避免删除标题？

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("O2").End(xlDown).Row

For i = Dep To 1 Step -1
    Cells(i, 15).Select
    If Not (Selection.Value = "SI" Or Selection.Value = "OI") Then
        Rows(i).Delete
    End If
Next i

End Sub

Answer 1

只是不要试图删除顶行。
而不是 For i = Dep To 1 Step -1 ， 利用:

For i = Dep To 2 Step -1