Здравствуйте, возник такой вопрос. Например есть файл в 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 макрос не работает.
Понял Вас. Спасибо за помощь.