Range("A1:B1").Value=array("=PI()", "=СЛЧИС()")

  Range("E5").Select
    Selection.Copy
    Range("G5").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False

Sub ttt()
Sheets("Основные линии").Range("BO3").Formula = Sheets("Справочно").Range("as9").Formula
On Error Resume Next
ThisWorkbook.Worksheets("Основные линии").Names("проблемы_РД_2_кл.").Delete
On Error GoTo 0
ThisWorkbook.Worksheets("Основные линии").Names.Add Name:="проблемы_РД_2_кл.", RefersToR1C1:=Sheets("Основные линии").Range("BO3").FormulaR1C1
Sheets("Основные линии").Range("Bo3").Formula = "=проблемы_РД_2_кл."
End Sub

' Sokol92 for PlanetaExcel
Option Explicit

' Присваивает диапазону rg формулу массива fArray
' @param rg диапазон
' @param fArray формула массива (должна начинаться на знак равенства)
' @return True при успехе; False при неудаче
Public Function LetFormulaArray(ByVal rg As Range, ByVal fArray As String) As Boolean
    If Left(fArray, 1) <> "=" Then Exit Function
      
    LetFormulaArray = FormulaArray(rg, fArray, 1)
    
    If LetFormulaArray Then  ' самопроверка
        If Not rg.Cells(1, 1).HasArray Or StrComp(rg.Cells(1, 1).Formula, fArray, vbTextCompare) <> 0 Then
            MsgBox "Error in function LetFormulaArray. Range address " & rg.Address(external:=True), vbCritical
            LetFormulaArray = False
        End If
    End If
End Function

' Присваивает диапазону rg формулу массива fArray
' @param level уровень вложенности вызова
' @param placeHolder префикс для замещающего текста
' @return True при успехе; False при неудаче
Private Function FormulaArray(ByVal rg As Range, ByVal fArray As String, ByVal level As Long, Optional ByVal placeHolder As String = "") As Boolean
    Dim arr_p(0 To 999) As Long  ' позиции круглых скобок по уровням вложенности в формуле
    Dim ind_p As Long            ' индекс в arr_p
    
    Dim what_beg As Long                ' позиция первого символа для замены на PlaceHolder
    Dim what_len As Long                ' длина заменяемого текста
    Dim what As String, repl As String  ' заменяемый текст и замещающий текст
    Dim n As Long, retval As Boolean
    Dim stat As Long ' Состояние "машины Тьюринга": 1-текст в двойных кавычках, 2-текст в апострофах, 0-прочие
    Dim i As Long, c As String
  
    If placeHolder = "" Then
        For i = 1040 To 1071 ' заглавные русские буквы
            c = ChrW(i) & "__"
            If InStr(1, fArray, c, vbTextCompare) = 0 Then
                placeHolder = c
                Exit For
            End If
        Next i
        
        If placeHolder = "" Then  ' все сочетания есть в формуле
            Exit Function
        End If
    End If
  
    If Len(fArray) <= 255 Then
        On Error Resume Next
        rg.FormulaArray = fArray
        FormulaArray = (Err.Number = 0)
        On Error GoTo 0
        If FormulaArray Or Len(fArray) <= 200 Then
          Exit Function
        End If
    End If
  
    If level >= 100 Then
        Exit Function
    End If
  
    ' ищем самый длинный фрагмент для замены на placeHolder
    arr_p(0) = 1
    i = 2
    Do While i <= Len(fArray)
        c = Mid(fArray, i, 1)
        
        If c = """" Then
            If stat = 0 Then
                stat = 1
            ElseIf stat = 1 Then
                If Mid(fArray, i + 1, 1) <> c Then stat = 0 ' не задвоенная двойная кавычка
            End If
            
        ElseIf c = "'" Then
            If stat = 0 Then
                stat = 2
            ElseIf stat = 2 Then
                stat = 0
            End If
        
        ElseIf c = "(" And stat = 0 Then
            ind_p = ind_p + 1
            arr_p(ind_p) = i
          
        ElseIf c Like "[),+/*-]" And stat = 0 Then ' возможный символ после замены
            n = i - arr_p(ind_p) - 1  ' число символов для замены
            If n > 10 And n <= 255 And n > what_len Then
                what_len = n
                what_beg = arr_p(ind_p) + 1
            End If
            If c = ")" Then
                If ind_p > 0 Then
                    ind_p = ind_p - 1
                End If
            End If
          
        End If
        i = i + 1
    Loop
    
    If what_len = 0 Then
        Exit Function
    End If
    
    ' меняем фрагмент
    repl = placeHolder & Format(level, "00")
    
    If what_beg >= 3 Then   ' после открывающей скобки
        c = Mid(fArray, what_beg - 2, 1)  ' символ перед скобкой
        If LCase(c) <> UCase(c) Or c Like "0-9_." Then
            what_beg = what_beg - 1
            what_len = what_len + 1
            what = Mid(fArray, what_beg, what_len)
            repl = placeHolder & "(" & repl
        End If
    End If
     
    If what = "" Then what = Mid(fArray, what_beg, what_len)
     
    retval = FormulaArray(rg, Left(fArray, what_beg - 1) & repl & Mid(fArray, what_beg + what_len), level + 1, placeHolder)
    If retval Then
        On Error Resume Next
        FormulaArray = rg.Replace(repl, what)
        On Error GoTo 0
    End If
    
End Function