Excel VBA Макросы: Как сделать заливку определенных столбцов, с необходимым интервалом.

[Владимир]

Здравствуйте, возник такой вопрос. Например есть файл в 1000 строк. Необходимо автоматически залить определенные столбцы, к примеру "K,L" c  интервалом в 10 строк. Благодарю. Пробовал через For i, но не выходит.

Макрос

Sub макрос()

    Dim i As Long
   
    For i = 1 To 1000 Step 10
   
        Cells(i, "K").Activate
        Cells(i, "L").Activate
   
        With Selection.Interior
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
            .ThemeColor = xlThemeColorAccent3
            .TintAndShade = 0
            .PatternTintAndShade = 0
        End With
       
    Next i
   
End Sub

[свернуть]

[Администратор]

Метод "Activate" устанавливает курсор-рамку в ячейку. Сначала вы ставите курсор-рамку в ячейку K, затем сразу в ячейку L, далее макрос работает с выделенной ячейкой (ячейкой, в которой находится курсор-рамка), это ячейка L, а с ячейкой K макрос не работает.

[Владимир]

Понял Вас. Спасибо за помощь.