Talán egy makró?


Sub képletmásolás()
Dim Forrás As Range, CélOszlop As Range, c As Range

Set Forrás = Range("C2:C8")
Set CélOszlop = Range("E:E")
For Each c In Forrás
If c.HasFormula Then
With Intersect(CélOszlop, c.EntireRow)
.Formula = c.Formula
.Interior.Color = c.Interior.Color
End With
End If
Next
End Sub

A makró végignézi a Forrás összes celláját, és ahol képletet talál, azt átmásolja a forrás cella sora és a CélOszlop által kijelölt metszetbe.
Forrásnak add meg azt a tartományt, ami a másolandó képleteket tartalmazza. CélOszlopnak add meg azt az oszlopot, ahová másolni kell.