=AVERAGEX(VALUES('Таблица1'[Магазин]); CALCULATE(SUM('Таблица1'[Кол-во товара])))

Before Date :=Var maxDate = MAX('Продажи'[Дата])
Var beforeDates = FILTER('Календарь'; 'Календарь'[День] < maxDate)
Return CALCULATE(MAX('Продажи'[Дата]); beforeDates)

Before sum := var beforeDate = [Before Date]
Return CALCULATE(SUM('Продажи'[Продажи Всего, в руб.]); 'Календарь'[День] = beforeDate)

var reg = /([A-ZА-Я]?\d{5}(?:-\d{2})?(?: [A-ZА-Я]?\d{5}(?:-\d{2})?)?)(.+?)(?=[A-ZА-Я]?\d{5}(?:-\d{2})?|$)/g;

Sub Macro1()
    Range("A1:B5").ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:="C:\Temp\Part1.pdf", _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub

Public Sub removeEmptyFolders()
    Const startPath = "C:\Temp\ТЕСТ_ "
    Dim fso As Object, startFolder As Object, startIsEmpty As Boolean
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set startFolder = fso.GetFolder(startPath)
    startIsEmpty = recursiveDeleteFolder(startFolder)
End Sub

Private Function recursiveDeleteFolder(folder) As Boolean
    Dim folderCollection As Object, nextFolder As Object
    Dim emptyFolderCollection As New Collection
    Dim thisIsEmpty As Boolean, nextIsEmpty As Boolean
    
    Set folderCollection = folder.SubFolders
    thisIsEmpty = (folder.Files.Count = 0)
    If (folderCollection.Count > 0) Then
        For Each nextFolder In folderCollection
            nextIsEmpty = recursiveDeleteFolder(nextFolder)
            thisIsEmpty = thisIsEmpty And nextIsEmpty
            If nextIsEmpty Then emptyFolderCollection.Add nextFolder
        Next
        If Not thisIsEmpty Then
            For Each nextFolder In emptyFolderCollection
                nextFolder.Delete
            Next
        End If
    End If
    recursiveDeleteFolder = thisIsEmpty
End Function

let
    source = Xml.Tables(File.Contents("C:\Users\19691792\Documents\Тестирование\test.xml")){0}[offers],
    expandSource = Table.ExpandTableColumn(source, "offer", {"price", "barcode", "categoryId", "name", "description", "vendor", "param", "Attribute:id", "Attribute:available"}),
    convertParamToRecord = Table.TransformColumns(expandSource, {{
        "param", each Record.FromList(_[#"Element:Text"], _[#"Attribute:name"])
    }}),
    allRecordFieldNames = List.Distinct(List.Combine(List.Transform(convertParamToRecord[param], each Record.FieldNames(_)))),
    toNames = List.Transform(allRecordFieldNames, each "param." & _),
    return = Table.ExpandRecordColumn(convertParamToRecord, "param", allRecordFieldNames, toNames)
in
    return

Public Sub MarkItalic()
    Dim pCell As Range
    For Each pCell In Selection
        If (TypeName(pCell.Value) = "String") Then
            pCell.Value(XlRangeValueDataType.xlRangeValueXMLSpreadsheet) = Replace(pCell.Value(XlRangeValueDataType.xlRangeValueXMLSpreadsheet), "<I>", "<I>$")
        End If
    Next
End Sub

=
VAR lastestDate =
    MAX ( 'Календарь'[Date] )
VAR fromDate =
    DATE ( YEAR ( lastestDate ); MONTH ( lastestDate ) - 2; 1 )
VAR betweenDates =
    DATESBETWEEN ( 'Календарь'[Date]; fromDate; lastestDate )
VAR statistics =
    CALCULATETABLE (
        SUMMARIZE (
            'qSales__2';
            'qSales__2'[Клиент];
            "uniqueMonthCount"; DISTINCTCOUNT ( 'Календарь'[MonthNumber] )
        );
        betweenDates
    )
RETURN
    COUNTROWS ( FILTER ( statistics; [uniqueMonthCount] = 2 ) )

=
AVERAGEX (
    SUMMARIZE ( 'Таблица3'; 'Таблица3'[товар] );
    AVERAGEX (
        SUMMARIZE ( 'Calendar'; 'Calendar'[Year]; 'Calendar'[Month] );
        DIVIDE ( [_продажи]; [_остатки]; 0 )
    )
)

=Var AmbOnly = CALCULATETABLE(VALUES('Table1'[ID пациента]); 'Table1'[Тип дог.] = "Амб")
Var notAmbOnly = CALCULATETABLE(VALUES('Table1'[ID пациента]); 'Table1'[Тип дог.] <> "Амб")
Var common = NATURALINNERJOIN(AmbOnly; notAmbOnly)
Return COUNTROWS(common)

=Var notEmpty = FILTER('Table1'; NOT(ISBLANK('Table1'[Space1])))
Var ranked = ADDCOLUMNS(notEmpty; "foo"; RANKX(notEmpty; 'Table1'[Date]; 'Table1'[Date];DESC))
Return CALCULATE(VALUES(Table1[Space1]); FILTER(ranked; [foo] = 2))

=IF(CALCULATE(COUNTROWS('Есть таблица'); ALLEXCEPT('Есть таблица'; 'Есть таблица'[Имя]; 'Есть таблица'[Еда])) > 1; "Да"; "Нет")

Как-то так:=SUMX(SUMMARIZE('есть таблица'; 'есть таблица'[№ рейса]; 'есть таблица'[стоимость перевозки]); 'есть таблица'[стоимость перевозки])

let
    source = Excel.CurrentWorkbook(){[Name="data"]}[Content],
    toList = List.Transform(Table.ToList(source), Text.ToList),
    toZip = List.Zip(toList),
    chars = List.Transform(toZip, each [
        toTable = Table.FromColumns({_}, {"f"}),
        defineCount = Table.Group(toTable, {"f"}, {"c", Table.RowCount}),
        defineMax = Table.Max(defineCount, "c")

    ][defineMax][f]),
    return = Text.Combine(chars)
in
    return

function getCartesianTable(firstRows, secondRows) {
  return firstRows.reduce(function (items, firstRow) {
    secondRows.forEach(function (secondRow) {
      items.push(firstRow.concat(secondRow));
    });
    return items;
  }, []);
} // getCartesianTable

=getCartesianTable(A2:B7; D2:F4)

var statyaIpodstatya = sh.getRange('A1').getDataRegion().getValues()

let
    Источник = DateTime.ToText(DateTime.FixedLocalNow(), "yyyy-MM-dd HH:mm:ss")

in
    Источник

let
    source = Excel.CurrentWorkbook(){[Name="Дано"]}[Content],
    selector = List.Buffer(Table.ToRecords(Excel.CurrentWorkbook(){[Name="Условия"]}[Content])),
    result = Table.AddColumn(source, "Выбор", (rec) =>
    [
        values = List.Accumulate(selector, {null, null}, (state, current) => 
        if Text.Contains(rec[Наименование], current[Наименование]) then
            List.ReplaceRange(state, current[Выбор], 1, {current[Выбор]})
        else
            state
        ),
        result = Record.FromList(values, {"Выбор0", "Выбор1"})
    ][result]),
    return = Table.ExpandRecordColumn(result, "Выбор", {"Выбор0", "Выбор1"})
in
    return