=ПСТР(A1;1;ПОИСК("!";ПОДСТАВИТЬ(A1;"/";"!";6))-1)&ПСТР(A1;ПОИСК("!";ПОДСТАВИТЬ(A1;"/";"!";7));999)

=ПОДСТАВИТЬ(A1;ПОДСТАВИТЬ(ПРАВСИМВ(ПСТР("/"&ПОДСТАВИТЬ(A1;"/";ПОВТОР("/";999));1;999*7);999);"/";"")&"/";"")

Target.EntireRow.Cells(1).Resize(, 28).Copy
Worksheets("Расчет").Range("a65000").End(xlUp).Offset(1).Pastespecial xlPastevalues
Application.CutcopyMode = false

x=Dir(varFilesToOpen(1),16)

For i = lbound(varFilesToOpen) to ubound(varFilesToOpen)

let
    Источник = Table.Combine({Таблица1, Таблица2, Таблица3}),
    #"Сгруппированные строки" = Table.Group(Источник, {"Работы"}, {{"Испол 1", each List.Sum([Исполнитель 1]), type nullable number}, {"Испол 2", each List.Sum([Исполнитель 2]), type nullable number}, {"Испол 3", each List.Sum([Исполнитель 3]), type nullable number}}),
    #"Добавлен пользовательский объект" = Table.AddColumn(#"Сгруппированные строки", "Сумма", each List.Sum({[Испол 1],[Испол 2],[Испол 3]})),
    #"Переупорядоченные столбцы" = Table.ReorderColumns(#"Добавлен пользовательский объект",{"Работы", "Сумма", "Испол 1", "Испол 2", "Испол 3"})
in
    #"Переупорядоченные столбцы"

Text.Split([Idподразд],",")

let
    Источник = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    #"Измененный тип" = Table.TransformColumnTypes(Источник,{{"iduser", Int64.Type}, {"Idподразд", type text}}),
    #"Добавлен пользовательский объект" = Table.AddColumn(#"Измененный тип", "spl_text", each Text.Split([Idподразд],",")),
    #"Развернутый элемент spl_text" = Table.ExpandListColumn(#"Добавлен пользовательский объект", "spl_text")
in
    #"Развернутый элемент spl_text"

#”Измененный тип”[Договор из 1С]{0}

[B10].Formula = [B6].Value

let
    Источник = 
      {
        {"ИНН", Int64.Type}, 
        {"ЮЛ", type text}, 
        {"Name", type text}, 
        {"Дата", type datetime}, 
        {"Текст3", Int64.Type}, 
        {"Количество", type number}, 
        {"Сумма", type number}
      }
in
    Источник

let
    Источник = Excel.CurrentWorkbook(){[Name="Т"]}[Content],
    Value.Type = Table.TransformColumnTypes(Источник, табValueType)
in
    Value.Type

Sub check_date()
    Dim d1 As Date, dd As Date
    Dim WSStart As Worksheet
    Dim r&, lastrow&
    Dim sFormatDate As String
    Dim ttt
    
    ttt = Timer
    Set WSStart = ThisWorkbook.Worksheets(1)
    lastrow = WSStart.Cells(WSStart.Rows.Count, "G").End(xlUp).Row
    
    
    d1 = DateSerial(Year(Date), Month(Date), 1)
    sFormatDate = Format(d1, "YYYYMM")
    Range("B2").Value = Date
    Range("J1").Value = DateSerial(Year(d1), Month(d1), 0)
    Range("K1").Value = d1

    For r = 2 To lastrow
        dd = CDate(WSStart.Cells(r, 7).Value)
        If Format(dd, "YYYYMM") <> sFormatDate Then
            WSStart.Cells(r, 11).Value.Value = "not ok"
        Else
            WSStart.Cells(r, 11).Value.Value = "ok"
        End If
    Next
     
    Range("L1").Value = "Time of processing " & Format((Timer - ttt) / 24 / 60 / 60, "hh:mm:ss")
End Sub