=СУММПРОИЗВ(C6:C22;E6:E22-D6:D22)/СУММПРОИЗВ(E6:E22-D6:D22)

=VAR baseTable =
    CALCULATETABLE (
        'Таблица1';
        ALLEXCEPT('Таблица1'; 'Таблица1'[Column3])
    )
VAR addIntNum =
    ADDCOLUMNS (
        baseTable;
        "intNum";
        VAR curClient = 'Таблица1'[Column3]
        VAR beginDate =
            TRUNC (
                MINX (
                    FILTER ( baseTable; 'Таблица1'[Column3] = curClient );
                    'Таблица1'[Column2]
                )
            )
        RETURN
            TRUNC ( ( TRUNC ( 'Таблица1'[Column2] ) - beginDate ) / 21 )
    )
VAR addStatus =
    ADDCOLUMNS (
        addIntNum;
        "intStatus";
        VAR curClient = 'Таблица1'[Column3]
        VAR curIntNum = [intNum]
        VAR beginDate =
            MINX (
                FILTER ( addIntNum; 'Таблица1'[Column3] = curClient && [intNum] = curIntNum );
                'Таблица1'[Column2]
            )
        RETURN
            IF ( beginDate = 'Таблица1'[Column2]; 0; 1 )
    )
VAR fromDate =
    MIN ( 'Таблица1'[Column2] )
VAR toDate =
    MAX ( 'Таблица1'[Column2] )
RETURN
    COUNTROWS (
        FILTER (
            addStatus;
            'Таблица1'[Column2] >= fromDate
                && 'Таблица1'[Column2] <= toDate
                && [intStatus] = 0
                && NOT(ISBLANK('Таблица1'[Column3]))
        )
    )

VAR baseTable =
    CALCULATETABLE (
        'Таблица1';
        ALL ( 'Таблица1'[Год]; 'Таблица1'[Месяц] );
        NOT ( ISBLANK ( 'Таблица1'[Column3] ) )
    )

let
    toDoFunction = (circleNumber) => circleNumber + 1,
    forEach = List.Transform({1..100500}, toDoFunction)
in
    forEach

let
    dbTables = Table.FromColumns({{"C:\Path\1.mdb", "C:\Path\2.mdb"}}, {"BaseFile"}),
    toTables = List.Transform(dbTables[BaseFile], each Value.NativeQuery(Access.Database(File.Contents(_)), "Select * From TData")),
    result = Table.Combine(toTables)
in
    result

let
    dbTables = Table.FromColumns({{"C:\Path\1.mdb", "C:\Path\2.mdb"}}, {"BaseFile"}),
    toTables = List.Transform(dbTables[BaseFile], each Access.Database(File.Contents(_), [CreateNavigationProperties=false]){[Schema="",Item="TData"]}[Data]),
    result = Table.Combine(toTables)
in
    result

let
    getSum = (sub) => List.Accumulate(Table.ColumnNames(sub), 0, (acc, colName) => acc + List.Sum(Table.Column(sub, colName))),
    Source = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    managerFields = {"План Менеджер", "Факт Менеджер"},
    submanagerFields = {"План замменеджера", "Факт замменеджера"},
    workerFields = {"План работники", "Факт работники"},
    calcer = Table.Group(Source, {"Дата"}, {
        {"Общ. Менеджеры", each getSum(Table.SelectColumns(_, managerFields)), Number.Type},
        {"Общ.замменеджера", each getSum(Table.SelectColumns(_, submanagerFields)), Number.Type},
        {"Общ.работник", each getSum(Table.SelectColumns(_, workerFields)), Number.Type}
    }),
    #"Changed Type" = Table.TransformColumnTypes(calcer,{{"Дата", type date}})
in
    #"Changed Type"

=ЦЕЛОЕ(СУММ($B$1:B2)/СУММ($B$2:$B$4)*$F$2)-ЦЕЛОЕ(СУММ($B$1:B1)/СУММ($B$2:$B$4)*$F$2)