Правим код

[Ogeris]

День добрый!

Есть замечательный код, который, как видно, вставляет значение вышестоящей ячейки:

Sub Макрос1()
lRow = ActiveCell.Row
lCol = ActiveCell.Column
For l1 = lRow + 1 To 1000
If Cells(l1, lCol) = "" Then
Cells(l1, lCol) = Cells(l1 - 1, lCol)
End If
Next l1
End Sub

Как подправить этот код, чтобы вставлялись не значения вышестоящей ячейки, а ссылка на вышестоящую ячейку, и ещё при этом сама ячейка, в которую вставляется ссылка, была незаметна (т.е. цвет шрифта белый)?

Заранее благодарен!

[EducatedFool]

Попробуйте такой вариант:

Sub test()
    On Error Resume Next
    With Intersect(ActiveCell.EntireColumn, Range(ActiveCell.Row + 1 & ":1000")).SpecialCells(xlCellTypeBlanks)
        .FormulaR1C1 = "=r[-1]c"
        .Font.Color = vbWhite
    End With
End Sub

[Ogeris]

Спасибо! Код работает!

Единственная проблема, - его скашивает на объединенных ячейках.

Т.е. когда две ячейки объединены, макрос, видимо, воспринимает их как пустые, и вставляет в них ссылку на верхнюю ячейку ((

А ведь в них есть данные, которые не стоит удалять