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

Posted

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了如何使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

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

另一答案

理查德,你完全正确,在这种情况下,“Step -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

以上是关于如何使For-Each循环向后运行的主要内容,如果未能解决你的问题,请参考以下文章

为啥我的使用“for-each 循环”的线性搜索代码不适用于混合输入?

如何在没有 ConcurrentModificationException 的情况下使用 for-each 循环进行迭代时修改集合? [复制]

对于不实现 Iterable 的类,如何使用 for-each 循环

如何使用 PySpark 进行嵌套的 for-each 循环

For-Each 循环 Java 错误 ArrayIndexOutOfBoundsException

如何在已排序的 xsl:for-each 循环中访问前一个和下一个元素的值