= Excel.Workbook(File.Contents("\\maytea.com\DFS\RDS-Docs\OLyashko\Desktop\Срез.xlsx"), null, true)

let
    filename = "Срез.xlsx",
    Источник = Excel.Workbook(File.Contents("\\maytea.com\DFS\RDS-Docs\OLyashko\Desktop\"&filename), null, true),
    Sheet1_Sheet = Источник{[Item="Sheet1",Kind="Sheet"]}[Data],
    #"Added Custom" = Table.AddColumn(Sheet1_Sheet, "Пользовательский", each filename)
in
    #"Added Custom"

ThisWorkbook.Sheets("Бланк").Copy Before:=ThisWorkbook.Sheets(1)
ThisWorkbook.Sheets(1).Name = "Бланк - заполнить"

Application.DisplayAlerts = False
ThisWorkbook.Sheets("Бланк - заполнить").Delete
Application.DisplayAlerts = True

If TextBox1.Value = "" then
     msgbox "Не заполнено поле 'Уровень зарплаты'",vbinformation
     Exit sub
end if

dim dOpb#
For Each x In Me.Controls
        If TypeOf x Is MSForms.OptionButton Then
            dOpb = dOpb + Abs(x.Value) 'если будет True(т.е. пункт выбран), то Abs(x.Value) будет равно 1. В противном случае  - 0
        End If
        If TypeOf x Is MSForms.TextBox Then
            If x.Value = "" Then
                MsgBox "Zapolni Zarplatu"
                Exit Sub
            End If
        End If
    Next
    'если dOpb равно 0 - ни одна OptionButton не выбрана
    If dOpb = 0 Then
        MsgBox "Необходимо выбрать вариант"
        Exit Sub
    End If

=ДВССЫЛ("'"&C$2&"'!B2")

=ДВССЫЛ("'"&C$2&"'!B"&СТРОКА(C2))

=
VAR CurDate = MAX([Дата])
VAR MinDate = MAXX(FILTER(ALL('Data');[Дата]<CurDate);[Дата])
Return CALCULATE([Сумма по столбцу Остаток];'Data'[Дата]=MinDate)

aFnd = Array("111","222")
aRep = Array("1","2")

aFnd = Array("Order","DF125")
aRep = Array("Заказ","Смеситель с рычагом")

Dim lr&, aFnd, aRep
aFnd = Array("111","222")
aRep = Array("1","2")
For lr = lbound(aFnd) to ubound(aFnd)
     Selection.Find.ClearFormatting
     Selection.Find.Replacement.ClearFormatting
     With Selection.Find
       .Text = aFnd(lr)
       .Replacement.Text = aRep(lr)
         .Forward = True
         .Wrap = wdFindContinue
         .Format = False
         .MatchCase = False
         .MatchWholeWord = False
         .MatchWildcards = False
         .MatchSoundsLike = False
         .MatchAllWordForms = False
End With
Next

=ПРАВСИМВ(D2;3)

=DISTINCTCOUNT([Empl])

=ЕСЛИОШИБКА(ПОДСТАВИТЬ(ИНДЕКС($H12:$J12;ПОИСКПОЗ("*~*"&ПСТР(L$11;1;2);$H12:$J12;0));"*"&ПСТР(L$11;1;2);"")/1000;"")

=МЕДИАНА(ИНДЕКС($A$1:$A$10241;СУММПРОИЗВ(МИН(ЕСЛИ(($B$2:$B$10241>=E5);(СТРОКА($B$2:$B$10241)))))):ИНДЕКС($A$1:$A$10241;СУММПРОИЗВ(МАКС(ЕСЛИ(($B$2:$B$10241<=E6);(СТРОКА($B$2:$B$10241)))))))