VBA 如果最后两个字符等于“XX”，则删除整行

Question

我试图运行一个宏，它查看一个字符串并确定最后两个字符是否等于“XX”，然后删除整行。

我收到一个对象错误哦，下面突出显示。

Sub Oval2_Click()


Last = Cells(Rows.Count, "E").End(xlUp).Row

For i = Last To 1 Step -1

`If (Right(Cells(i, "E"), 2).Value) = "TZ" Then`

    Cells(i, "E").EntireRow.Delete

End If
Next i

End Sub

请帮忙！谢谢你。

Answer 1

删除.Value从Right(Cells(i, "E"), 2).Value。它在抱怨，因为函数.Value中不存在 Right