Попытка сохранить книгу после 5 циклов

Question

Я вставил это For l oop прямо перед концом другого l oop, чтобы сохранить книгу после каждых 5 итераций оригинала для l oop.

'Saves Workbook after 5 Calculation
           
    For k = 2 To RowCount Step 5                
        If k = i Then ThisWorkbook.Save
    Next k
Next i

It говорит, что нет следующего для 'для kl oop'

Как я могу это исправить и есть ли лучший способ?

Answer 1

Вы выполняете двойной l oop там, где команда сохранения будет выполняться несколько раз внутри исходного l oop.

Чтобы сохранить каждые 5 итераций l oop, вам нужно будет добавить что-нибудь попроще. Попробуйте:

     If (i-1) Mod 5 = 0  Then ThisWorkbook.Save
Next i

Этот код будет запускаться каждый раз, когда остаток счетчика i делится на 5, таким образом сохраняя каждые 5 итераций вашего счетчика.