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

我用VBA编写了一个小脚本，它根据列表检查给定范围内单元格的值。如果单元格值与列表中的值匹配，则保留该单元格，否则删除该单元格。我想知道如何使它向后运行，因为向前运行会产生问题。我对此进行了一些研究，并尝试将“步骤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

---

我已将

停止

，以便您可以查看引用的单元格。一旦你点击

停止

，继续F5。

Richard，在这种情况下，“步骤1”方法是正确的解决方案，这是完全正确的。您只需更改周围的变量引用即可使用循环

例如：

Set Rng = Range("A9:V9")
For i = rng.rows.count to 1 step -1
    for j = rng.columns.count to 1 step -1
        if not myList.Exists(rng.cells(i, j).value) then
           rng.cells(i, j).entirecolumn.delete ' This probably won't work, but you get the idea.
        end if
    next j
next i

---

谢谢大家的回答，谢谢大家的帮助！