Как сделать цикл для каждого запуска назад

Question

Я написал небольшой скрипт на 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

Answer 1

Ричард, вы совершенно правы, что подход «Шаг-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

Answer 2

В этом случае, вероятно, будет достаточно некоторого цикла 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 .