1 2 3 4 | Range("F1:H1").FormulaLocal = Array ("=СУММ(A1:E1)", "=МИН(A1:E1)", "=МАКС(A1:E1)") Range("F1:H1").Formula = Array ("=SUM(A1:E1)", "=MIN(A1:E1)", "=MAX(A1:E1)") Range("F1:H1").Replace What:="=", Replacement:="=" |
1 2 3 4 | Range("F1:H1").FormulaLocal = Array ("=СУММ(A1:E1)", "=МИН(A1:E1)", "=МАКС(A1:E1)") Range("F1:H1").Formula = Array ("=SUM(A1:E1)", "=MIN(A1:E1)", "=MAX(A1:E1)") Range("F1:H1").Replace What:="=", Replacement:="=" |