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

Question

我在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

Answer 1

在这种情况下,可能像这样的一些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

我已经放了,Stop所以你可以看到哪个细胞被引用.一旦你点击Stop,继续进行F5.