Вы можете использовать ключевое слово Шага в Excel VBA, чтобы указать другое приращение для счетчика переменного цикла.

  1. Поместите командную кнопку

на листе и добавьте следующие строки кода:

Dim i As Integer

For i = 1 To 6 Step 2

Cells(i, 1).Value = 100

Next i

Результат при нажатии на кнопку управления на листе:

Positive Step

Объяснение: строки кода между For и Next будет выполняться три раза. Для г = 1, Excel VBA вводит значение 100 в ячейке на пересечении строки 1 и столбца 1. Когда Excel VBA достигает Далее я, это увеличивает I с 2 и переходит обратно к Для постановки. Для я = 3, Excel VBA вводит значение 100 в ячейке на пересечении строки 3 и столбца 1 и т.д.

  1. Поместите командную кнопку

на листе и добавьте следующие строки кода:

Dim j As Integer

For j = 8 To 3 Step -1

Cells(6, j).Value = 50

Next j

Результат при нажатии на кнопку управления на листе:

Negative Step

Объяснение: строки кода между For и Next будет выполняться шесть раз. При J = 8, Excel VBA вводит значение 50 в ячейку на пересечении строки 6 и столбца 8. Когда Excel VBA достигает Далее J, J уменьшается с 1 и переходит обратно к Для постановки. При J = 7, Excel VBA вводит значение 50 в ячейку на пересечении строки 6 и столбца 7 и т.д.