1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | Range("B2") = Range("A1").Formula ' Вариант III.Range("B2").Value = Range("A1").Formula ' Вариант II.Range("B2").Formula = Range("A1").Formula ' Вариант I.Предполагается, что:Range("B2") - это ячейка, где будет формулаRange("A1") - это исходная ячейка с формулойЭтот вариант предназначен для тиражирования обычных формул, для того, чтобы он работал и с формулами массива, необходимо использовать:If Not Range("A1").HasArray Then Range("B2").Formula = Range("A1").FormulaElse If Range("A1").CurrentArray.Count = 1 Then Range("B2").FormulaArray = Range("A1").Formula Else MsgBox "Эта формула массива, по замыслу создателя, должна занимать более одной ячейки" End IfEnd If |