Public Sub GetInfoK()
    Dim pDict As Object
    Dim ids As Variant
    Dim offices As Variant
    Dim pTable As ListObject
    Dim vMax As Long, sMaxKey As String
    Dim i As Long, sKey As String
    Set pTable = ActiveSheet.ListObjects("WBApi__2")
    ids = pTable.ListColumns("gi_id").DataBodyRange.Value
    offices = pTable.ListColumns("office_name").DataBodyRange.Value
    Set pDict = CreateObject("Scripting.Dictionary")
    For i = 1 To UBound(ids, 1)
        sKey = ids(i, 1) & "|" & offices(i, 1)
        pDict(sKey) = pDict(sKey) + 1
        If pDict(sKey) > vMax Then
            vMax = pDict(sKey)
            sMaxKey = sKey
        End If
    Next
    Debug.Print Replace$(sMaxKey, "|", " — ") & " = " & vMax
End Sub

мера 1:=Var latestDate = MAX('Sp_Date'[Date])
Var allNeededPoints = CALCULATETABLE(
    GROUPBY('Data 1'; 'Data 1'[X]; 'Data 1'[Y]; 'Data 1'[Z]; 'Data 1'[DYXY]);
    FILTER(ALL('Sp_Date'); 'Sp_Date'[Date] <= latestDate);
    'Data 1'[Rez] = 1
)
Return 7 * COUNTROWS(allNeededPoints)

=Var latestDate = MAX('Sp_Date'[Date])
Var allNeededPoints = CALCULATETABLE(
    GROUPBY('Data 1'; 'Data 1'[X]; 'Data 1'[Y]; 'Data 1'[Z]);
    FILTER(ALL('Sp_Date'); 'Sp_Date'[Date] <= latestDate);
    'Data 1'[Rez] = 1
)
Var cTable = SELECTCOLUMNS(allNeededPoints; "Xc"; 'Data 1'[X]; "Yc"; 'Data 1'[Y]; "Zc"; 'Data 1'[Z])
Var oTable = SELECTCOLUMNS(allNeededPoints; "Xo"; 'Data 1'[X]; "Yo"; 'Data 1'[Y]; "Zo"; 'Data 1'[Z])
Var crossTable = CROSSJOIN(cTable; oTable)
Var usePoints = FILTER(crossTable;
    ABS([Xc] - [Xo]) < 6 && ABS([Yc] - [Yo]) < 6 && ABS([Zc] - [Zo]) < 6
)
Return COUNTROWS(usePoints)

SUMMARIZE('Таблица1'; 'Таблица1'[Филиал]; 'Таблица1'[Должность])

=Var weightSum = SUMX(GROUPBY('FCS'; 'СетьСпр'[Сеть]; 'ТоварСпр'[Товар]);
  Var fcsSum = CALCULATE([FCS_sum])
  Var saleSum = CALCULATE([Sales Total])
  Var cf = 1 - DIVIDE(ABS(fcsSum - saleSum); saleSum; BLANK())
  Return  saleSum * cf
)
Var result = DIVIDE(weightSum; [Sales Total]; BLANK())
Return IF(result < 0; 0; result)

=IF(HASONEVALUE('Таблица1'[OCE__CallDateTime__c]);
    Var curDate = MAX('Таблица1'[OCE__CallDateTime__c])
    Var beforeDate = CALCULATE(MAX('Таблица1'[OCE__CallDateTime__c]);
        FILTER(ALL('Таблица1'[OCE__CallDateTime__c]); 'Таблица1'[OCE__CallDateTime__c] < curDate)
    )
    Return IF(ISBLANK(beforeDate); BLANK(); ROUND(curDate - beforeDate; 0));
    BLANK()
)