如何使 For-Each 循环向后运行

我用 VBA 编写了一个小脚本，它根据列表检查给定范围内的单元格的值。如果单元格值与列表中的值匹配，则保留该单元格值，否则将其删除。我想知道如何让它向后运行，因为向前运行会产生问题。我对此进行了一些研究，并尝试将“Step -1”附加到开始 for 循环的行的末尾，但这在这种情况下不起作用。

Set Rng = Range("A9:V9")
For Each cell In Rng
    If Not myList.Exists(cell.Value) Then
        cell.EntireColumn.Delete
    End If
Next

在这种情况下，可能像这样的一些 for 循环就足够了：

Option Explicit

Sub TestMe()

    Dim rng As Range
    Dim cnt As Long

    Set rng = Range("A9:V9")

    For cnt = rng.Cells.Count To 1 Step -1
        Cells(rng.Row, cnt) = 23
        Stop
    Next

End Sub

I have put Stop so you can see which cell is referred. Once you hit the Stop, continue further with F5.