如何根据ColorIndex使用宏循环删除excel中的单元格？

Question

我目前有一个电子表格，在同一行中有紫色和绿色的单元格行。我希望能够运行穿过单元格的宏并删除颜色索引18的紫色单元格并将剩余的单元格移动到左侧。目前我的代码完成了这项工作，但循环从未经过所有单元格。我最终不得不多次运行宏来删除所有紫色单元格。我不希望它删除整行，只是颜色指数为18的单元格。

我的代码如下。任何帮助将非常感激。

Sub Delete18()

Dim i As Integer
Dim j As Integer
Dim n As Integer

For i = 2 To 86
 For j = 2 To 86

  If Cells(i, j).Interior.ColorIndex = 18 Then
   Cells(i, j).Delete Shift:=xlToLeft
  End If

  Next j
 Next i

End Sub