Добрый день, у меня имеется код, который проходит по строке и перетаскивает формулы из верхней строки, если они там есть
Код |
---|
For Stolb = 1 To LastStolb
If Cells(ActiveCell.Row, Stolb).HasFormula Then
Cells(ActiveCell.Row + 1, Stolb).FillDown
End If
Next
|
Так вот суть в чем, мне нужно для разных диапазонов выполнить одно и то же условие, Не хочется каждый раз прописывать все 5 строк, можно как-то диапазоны перечислить? Пример (но так не работает):
Код |
---|
For Stolb = 1 To 2, 2 To 5, 5 To 7, 7 To LastStolb
If Cells(ActiveCell.Row, Stolb).HasFormula Then
Cells(ActiveCell.Row + 1, Stolb).FillDown
End If
Next
|