let
  Source = {{"a", 1}, {"a", 2}, {"b", 3}, {"C", 3}, {"d", 4}}, 
  from = Table.Group(
    Table.AddColumn(
      Table.Group(
        Table.Combine(List.Transform(Source, (x) => Table.FromRows({x}))), 
        {"Column1"}, 
        {{"Col1", (x) => List.Distinct(List.Combine(Table.ToColumns(x)))}}
      ), 
      "Col2", 
      each [Col1]{1}
    ), 
    {"Col2"}, 
    {{"Final", (x) => List.Distinct(List.Combine(x[Col1]))}}
  )[Final]
in
  from

=
CALCULATE(
    SUMX(DISTINCT('Пример'[Свойство]);1);
         'Пример'[Качество]="Ниже нормы"; 
         ALL('Пример');
         VALUES('Пример'[ID товара])
)

=
   VAR _t1 = 'Пример'[ID товара]

    RETURN

           CALCULATE(SUMX( DISTINCT('Пример'[Свойство]);1);

     'Пример';

'Пример'[Качество]="Ниже нормы";

'Пример'[ID товара]=_t1)

var a = SWITCH(VALUES('Таблица2'[Имя] );  "Никита"; CALCULATE(SUM('Таблица1'[Столбец2]);'Таблица1'[Столбец1] in  {"a"; "b"; "c"; "d"; "e"; "f"; "g"; "h"; "i"; "g"; "k"; "l"; "m"; "n"} ) ;  "Женя"; CALCULATE(SUM('Таблица1'[Столбец2]);'Таблица1'[Столбец1] in  {"g"; "k"; "l"; "m"; "n"; "o"; "p"; "a"; "b"; "c"; "d"; "e"})  ;       "Дима"; CALCULATE(SUM('Таблица1'[Столбец2]);'Таблица1'[Столбец1] in  {"b"; "c"; "d"; "e"; "f"; "g"; "h"; "i"; "g"; "k"})  ;"Вова"; CALCULATE(SUM('Таблица1'[Столбец2]);'Таблица1'[Столбец1] in {"h"; "i"; "g"; "k"; "l"; "m"; "n"; "o"; "p"})  ; BLANK())return a

Text.AfterDelimiter([DATA],"/",RelativePosition.FromEnd)

Total = CALCULATE(SUM('Таблица'[Количество]),REMOVEFILTERS())

во как так:

Measure = 
VAR _CurrentYear = YEAR(TODAY())
VAR _Start = CALCULATE( CALCULATE(SUM('Незакрытый аванс'[AVANS_UNWORKED]),FILTER(ALL('Calendar'[Date]),'Calendar'[Date]<=DATE(_CurrentYear-1,12,31))))
VAR _mindate =DATE(_CurrentYear,1,31)
VAR _d = IF(MAX('Calendar'[Date])<=_mindate,_Start+SUM('Незакрытый аванс'[AVANS_UNWORKED]),CALCULATE(SUM('Незакрытый аванс'[AVANS_UNWORKED]),FILTER(ALL('Calendar'[Date]),'Calendar'[Date]<=MAX('Calendar'[Date]))))
RETURN IF(INT(YEAR(MAX('Calendar'[Date]))=YEAR(TODAY())),
_d)

sub ConvertLongDateToShortDate()
    Dim arr As Variant, arrTemp As Variant
    Dim CountOfSpaces As Long, lDay As Long, lMonthNumber As Long, lYear As Long, i As Long
    Dim Rng As Range
    
    If Selection.Cells.Count = 1 Then
        MsgBox "Выделите диапазон ячеек с датами", vbInformation, "Внимание"
        Exit Sub
    End If
    
    Set Rng = Intersect(Selection, ActiveSheet.UsedRange)
    
    Rng.Replace Chr(160), " "
    
    arr = Rng.Value2
    
    On Error Resume Next
    
    For i = LBound(arr) To UBound(arr)
        If arr(i, 1) <> Empty Then
            If InStr(1, arr(i, 1), " ", vbBinaryCompare) > 0 Then
                CountOfSpaces = Len(arr(i, 1)) - Len(VBA.Replace(arr(i, 1), " ", ""))
                If CountOfSpaces = 2 Then
                    arrTemp = Split(arr(i, 1))
                    If UBound(arrTemp) = 2 Then
                        lMonthNumber = NumberOfMonthName(arrTemp(1))
                        If lMonthNumber > 0 Then
                            arr(i, 1) = DateSerial(CLng(arrTemp(2)), lMonthNumber, CLng(arrTemp(0)))
                        End If
                    End If
                End If
            End If
        End If
    Next i
    
    On Error GoTo 0
    
    Rng.Value = arr
End Sub

Private Function NumberOfMonthName(ByVal Str As String) As Long
    Dim MonthNames As Variant
    MonthNames = Array("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec")
    On Error Resume Next
    NumberOfMonthName = Application.Match(LCase(Str), MonthNames, 0)
End Function