爲什麼我的宏不會刪除所有行（VBA）

Question

我有這個宏它應該刪除沒有背景設置給他們的所有單元，但是當我執行宏時，如果兩個或多個連續的單元不有一個背景，只刪除其中之一，這裏是代碼：

Sub Macro1() 
     Dim a As Range 

     Set a = Hoja1.Range("A1:A12") 
     For Each cell In a 
      If cell.Interior.ColorIndex = xlNone Then 
       cell.EntireRow.Delete 
      End If 
     Next 
End Sub 

Answer 1

Sub Macro1() 
    Dim a As Range, x As Long 

    Set a = Hoja1.Range("A1:A12") 

    For x = a.cells.count to 1 Step -1 
     with a.cells(x) 
      if .Interior.ColorIndex = xlNone Then .EntireRow.Delete 
     End With 
    Next x 
End Sub