1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | Range("A1").Formula = "=SUM(B5:B10)" Вы можете вводить функцию в привычном варианте: Range("A1").FormulaLocal = "=СУММ(B5:B10)" Если функция находится в другой ячейке, то: iFormula = Range("A5").Formula Range("A1") = iFormula iFormula = Range("A5").FormulaLocal Range("A1").FormulaLocal = iFormula Предполагается, что: "A1" - это ячейка, куда будет помещена функция "A5" - это ячейка, где находится нужная функция =СУММ(B5:B10) - это функция, в ячейке "A5" = "= IF (A5> 13 ,A5,""<>"")" = "=ЕСЛИ(A5> 13 ;A5;""<>"")" Если у Вас всё-таки возникли трудности с созданием формулы на VBA, то выберите одну (а лучше две, например A1, A2) пустые ячейки, и введите нужную формулу вручную, а затем просто выполните: MsgBox Range("A1").Formula, , "Узрите :" Range("A2") = "'" & Range("A1").Formula |