Нашла на форуме макрос, но почему-то он выдает ошибку в первой строке.
Код
Sub CopyCells()
' В выделенном вертикальном диапазоне (клетки по столбцу к примеру А2:А150)
' заполнены следующие клетки: А2, А10, А60, А80
' Макрос позволит размножить значение заполненных клеток на внизлежащие до следующей заполненной
' Таким образом после выполнения макроса мы получим следующее:
' диапазон А3-А9 будет заполнен значениями клетки А2
' диапазон А11-А59 будет заполнен значениями клетки А10
' диапазон А61-А79 будет заполнен значениями клетки А60
' диапазон А81-А150 будет заполнен значениями клетки А80
'
Dim cel As Range
' Цикл перебора клеток выделенного диапазона
For Each cel In Selection
' Если клетка со сдвигом вниз на одну позицию Offset(1, 0) пустая = ""
' то она равна значению текущей клетки
If cel.Offset(1, 0) = "" Then cel.Offset(1, 0) = cel
' перемещаемся на клетку вниз
Next
End Sub
Помогите, пожалуйста! Копирование необходимо в первом и втором столбце.
Sub FillBlankCells()
Dim iLastRow As Long
iLastRow = Cells(Rows.Count, 3).End(xlUp).Row
With Range("A6:B" & iLastRow)
.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
.Value = .Value
End With
End Sub