let
    Источник = Folder.Files("ПУТЬ К ПАПКЕ С ФАЙЛОМ"),
    filt = Table.SelectRows(Источник, each ([Name] = "Книга1.xlsx")),
    transf = Table.TransformColumns(filt,{{"Content", each Table.SelectRows(Excel.Workbook(_, null, true), each [Kind]="Table"){0}[Data]}})[[Content], [Date created]],
    exp = Table.ExpandTableColumn(transf, "Content", {"Номер задачи", "Статус задачи", "Дата заверешения"}, {"Номер задачи", "Статус задачи", "Дата заверешения"}),
    adcol = Table.AddColumn(exp, "Новая Дата и Время завершения", each if [Статус задачи] = "Открыта" then [Date created] else [Дата заверешения], type datetime),
    delcol = Table.RemoveColumns(adcol,{"Date created"})
in
    delcol

let
    Источник = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    #"Добавлен индекс" = Table.AddIndexColumn(Источник, "Индекс", 1, 1, Int64.Type),
    typ = Table.TransformColumnTypes(#"Добавлен индекс",{{"Фамилия", type text}, {"Статус", type text}, {"Проект", type text}, {"Статус2", type text}}),
    filt = Table.SelectRows(typ, each ([Статус2] = "Да")),
    megr = typ & filt,
    sort = Table.Sort(megr,{{"Индекс", Order.Ascending}})
in
    sort

 #"Added Custom" = Table.AddColumn(#"Grouped Rows", "Custom", each List.Distinct([Count][Details])),

 names = Table.ReplaceValue(b,null,"",Replacer.ReplaceValue, {"Назначение"}),
   replacements = Table.Buffer(spr_post),
   result = Table.AddColumn(
       names,
       "НАЗНАЧЕНИЕ",
       (x) => Table.Skip(
           replacements,
           (w) => not Text.Contains(
               x[Назначение],
               w[old], Comparer.OrdinalIgnoreCase
           )
       ){0}?[new]? ?? x[Назначение]
   )
in
   result,

let
    from = Excel.CurrentWorkbook(){[Name="пример"]}[Content],
    repl = Table.TransformColumns(from, List.Transform(Table.ColumnNames(from), (x)=> {x,  each if _ <> null then _ else 0 } ))
in
    repl

Sub OstMKDT()

    Dim wb As Workbook
    Dim wsh As Worksheet
    Dim lr As Long
    Dim lc As Integer
    Dim irow As Integer
    Dim par As Variant
    Dim rng As Range
    Dim i As Long
        
    Set wb = Workbooks.Open("файл")
    Set wsh = wb.ActiveSheet
    Set rng = Range("A1:P25")
    par = "Номенклатурная группа"
    lr = wsh.UsedRange.Rows.Count
    lc = wsh.UsedRange.Columns.Count
    
    wsh.Cells.ClearOutline
    
    irow = rng.Find(par, LookIn:=xlValues, SearchDirection:=xlPrevious).Row - 1
    Rows("1" & ":" & irow).EntireRow.Delete
    
    Application.ScreenUpdating = False

' УДАЛЯЕМ ПУСТЫЕ СТОЛБЦЫ
    Dim diapaz1 As Range
    Dim diapaz2 As Range
    Set diapaz1 = Application.Range(ActiveSheet.Range("A1"), _
    ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell))
    For i = 1 To diapaz1.Columns.Count
        If WorksheetFunction.CountA(diapaz1.Columns(i).EntireColumn) = 0 Then
            If diapaz2 Is Nothing Then
            Set diapaz2 = diapaz1.Columns(i).EntireColumn
            Else
            Set diapaz2 = Application.Union(diapaz2, diapaz1.Columns(i).EntireColumn)
            End If
        End If
    Next
    diapaz2.[Delete]
    
   'УДАЛЯЕМ СТРОКИ ГДЕ КОЛИЧЕСТВО И СУММА равны 0
    Dim строка As LongPtr
    Dim строки As Range
    Dim строки2 As Range

     For строка = lr To 1 Step -1
        If Cells(строка, 7) = "" And Cells(строка, 8) = "" Then Set строки = Rows(строка)
            If строки2 Is Nothing Then Set строки2 = строки Else Set строки2 = Union(строки2, строки)
     Next строка
 
    If Not строки2 Is Nothing Then строки2.Delete Shift:=xlUp 'удалить со свигом вверх
    
        Application.ScreenUpdating = True
'    Debug.Print Rw
   

End Sub

СЧЁТЕСЛИМН(A3:A22;"*OMODA*";K3:K22;"";H3:H22;"< ="&КОНМЕСЯЦА(СЕГОДНЯ();0);H3:H22;"> ="&КОНМЕСЯЦА(СЕГОДНЯ();-1)+1)

let
    Источник = Folder.Files("C:\Users\"),
    #"Отфильтрованные скрытые файлы1" = Table.SelectRows(Источник, each [Attributes]?[Hidden]? <> true),
    fn = Table.TransformColumns(#"Отфильтрованные скрытые файлы1", {{"Content", each Table.FromColumns({Lines.FromBinary(_, null, null, 65001)})
}}),
    clean = Table.TransformColumns(fn, {{"Content", each let 
a = Table.SplitColumn(_, "Column1", Splitter.SplitTextByEachDelimiter({" "}, QuoteStyle.Csv, true), {"Column1.1", "Column1.2"}),
b = Table.Transpose(a),
c = Table.PromoteHeaders(b, [PromoteAllScalars=true])
in
c
}})[[Content]],
    exp = Table.ExpandTableColumn(clean, "Content", {"Номер твэла", "Длинна столба", "Масса столба", "Оператор", "ОТК", "Остаточное давление", "Вакумирование", "Время сварки"}, {"Номер твэла", "Длинна столба", "Масса столба", "Оператор", "ОТК", "Остаточное давление", "Вакумирование", "Время сварки"})
in
    exp

=ЕСЛИ(A2<>"";A2;H1)