=(ЗНАК(A1)*A1)^ЕСЛИ(A1>0;2;1)

=ЕСЛИ(A1>0;A1^2;-A1)

=ИНДЕКС({"VERY HARD";"HARD";"NORMAL";"LUZER"};СУММ(--(B2<{" ";1.15;0.87;0.62})))

=ЛЕВСИМВ(E1;МИН(ЕСЛИОШИБКА(ПОИСК({0;1;2;3;4;5;6;7;8;9};E1);" "))-2)

=ЛЕВСИМВ(E1;ДЛСТР(E1)-ПОИСКПОЗ(" ";ПСТР(E1;ДЛСТР(E1)-СТРОКА($A$1:$A$99);1);))

=СЖПРОБЕЛЫ(ПОДСТАВИТЬ(E1;D1;""))

=ПСТР(E1;1;ПОИСКПОЗ(1;ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(E1;"-";);"'";);СТРОКА($A$1:$A$100);3)^0;))

=ЛЕВБ(E1;ПОИСКПОЗ(1;ПСТР(E1;СТРОКА($A$1:$A$100);2)^0;)-1)

{IF "Первый" = "Второй" "Да" "{IF "Первый" = "Третий" "Да" "{IF "Первый" = "Четвертый" "Да" "{IF "Первый" = "Пятый" "Да" "Нет"}"}"}"}

Sub replace_()
     Dim appWord As Object, docWord As Object
     Dim OfficeApp As Object, ReadOnly As Boolean
     Dim path$, FName$, docpath$
      
     path = ThisWorkbook.path: FName = "replace.doc"
     docpath = path & "\" & FName: ReadOnly = True
     Set OfficeApp = CreateObject("Word.Application")
     Set docWord = OfficeApp.Documents.Open(Filename:=docpath, _
         ReadOnly:=ReadOnly)
     If docWord Is Nothing Then Exit Sub
     Set appWord = docWord.Application
      
     Dim i&, s$, s1$, s2$, zz&
      
     s1 = "Первый"
     s2 = "Третий"
      
     appWord.Documents(FName).Windows(1).View.ShowFieldCodes = 1
      
     With appWord.Documents(FName).Range
         .Find.Text = s1: .Find.Replacement.Text = s2
         .Find.Forward = True
           
         .Find.Execute
         If .Find.Found Then
               .Find.Execute Replace:=2
         End If
     End With
      
     With appWord.Documents(FName).Shapes
         If .Count Then
             For zz = 1 To .Count
                 If .Item(zz).TextFrame.HasText Then
                     With .Item(zz).TextFrame.TextRange
                         If InStr(1, .Text, s1, 1) Then
                             .Find.Text = s1: .Find.Replacement.Text = s2
                             .Find.Execute Replace:=2
                             .Fields.Update
                         End If
                     End With
                 End If
             Next
         End If
     End With
      
     appWord.Documents(FName).Windows(1).View.ShowFieldCodes = 0
     appWord.Documents(FName).Fields.Update
     appWord.Visible = 1
     appWord.ScreenUpdating = 1
End Sub

.Fields.Update