当存在for循环Excel VBA时，下一个无For错误

由 发布于

I am receiving a 'Next without For' on one of my for each loops when there is a For each statement. The error is highlighting the for loop for cell

'   Find and delete

Dim clear As Range

For Each clear In ActiveSheet.UsedRange
    If clear.Value = "TRANS_DATE" Then clear.Cells.Delete Shift:=xlShiftUp
Next clear

Dim total As Range
For Each total In ActiveSheet.UsedRange
    If total.Value = "Total Amount:" Then total.Cells.Delete Shift:=xlShiftUp
Next total

Dim cell As Range
For Each cell In ActiveSheet.UsedRange
    If cell.Interior.Color = Excel.XlRgbColor.rgbYellow And cell.Font.ColorIndex = RGB(255, 0, 0) Then
    cell.Delete Shift:=xlShiftUp
Next cell

Dim error As Range
For Each error In ActiveSheet.UsedRange
    If error.Interior.Color = Excel.XlRgbColor.rgbYellow Then
    error.EntireRow.Delete Shift:=xlShiftUp

End If
Next

任何关于什么可能是错的建议将不胜感激！