Цикл раскраски для большого объема данных

Question

Я пытался заполнить данные цветом фона, используя цикл.VBA не показывает ошибки для кода ниже, так что, похоже, работает.Однако на листе нет эффекта.

Не могли бы вы посоветовать, где я что-то пропустил?

Мои данные содержат значения между строками 11 и 14515

У меня есть эти данные для31 секция, где каждая секция имеет ровно 467 строк.Я хотел бы раскрасить некоторые из них (каждые 2), но не все.

Sub Background_color2()
    Sheets("14").Activate
    With Range("A479:FI945")
    For n = o To n = 14515 Step 934       '934 rows interval between 2  separate sections
        .Offset(n).Interior.Color = RGB(235, 241, 222)
    Next n
    End With
End Sub

Answer 1

Вы могли бы сделать что-то подобное.Значения могут нуждаться в корректировке.

Sub Background_color2()
    Dim n As Long
    For n = (11 + 468) To (11 + 31 * 468) Step (2 * 468)
        Sheet("14").Cells(n,1).Resize(467, 165).Interior.Color = RGB(235, 241, 222)
    Next n
End Sub

Answer 2

Попробуй,

Sub Background_color2()

    dim n as long

    With Sheets("14").Range("A479:FI945")
        For n = 0 To 14515 Step 934       '934 rows interval between 2  separate sections
            .Offset(n, 0).Interior.Color = RGB(235, 241, 222)
        Next n
    End With

End Sub