运行一次循环而不是多次删除行

Question

上次我写了关于循环的文章，偶尔会删除我的输出。所以我改变了。下半部的问题是它会删除具有特定背景颜色并且为空的行的第一次。要删除所有行，我需要运行几次相同的循环，而预期的行为是在“ B”列中查找所有空行且背景色为24的行并将其删除。是什么原因造成的？

非常感谢， 埃卡

Sub test()
Dim LR as long, i as Long
LR = Range("B" & Rows.Count).End(xlUp).Row
For i = 2 To LR
If IsEmpty(Cells(i, "B")) And Cells(i, "B").Interior.ColorIndex = 24 Then
Cells(i, "B").EntireRow.Delete
Else
End If
Next i

End Sub