Sub M10()Dim Diapaz(30) As RangeDim Z As Range​g3 = 1For g = 1 To 12 Step 2For i = 4 To 100 Step 2g2 = g2 + 1​ ​ ​ ​ ​ ​ ​ If g2 = 1 Then​ ​ ​ ​ ​ ​ ​ Set Diapaz(g3) = Cells(i, 1 + g)​ ​ ​ ​ ​ ​ ​ Else​ ​ ​ ​ ​ ​ ​ Set Z = Cells(i, 1 + g)​ ​ ​ ​ ​ ​ ​ Set Diapaz(g3) = Application.Union(Diapaz(g3), Z)​ ​ ​ ​ ​ ​ ​ End If​ ​ ​ ​ ​ ​ ​​ ​ ​ ​ ​ ​ ​ ​ If g2 = 30 Then​ ​ ​ ​ ​ ​ ​ g2 = 0​ ​ ​ ​ ​ ​ ​ g3 = g3 + 1​ ​ ​ ​ ​ ​ ​ End IfNext iNext g​Range("A1").Formula = "=SUM(" & Diapaz(1).Address & "," & Diapaz(2).Address & "," & Diapaz(3).Address & ")"​ ​ ​ Range("C1").Formula = "=SUM(" & Diapaz(1).Address & "," & Diapaz(2).Address & "," & Diapaz(3).Address & "," & Diapaz(4).Address & "," & Diapaz(5).Address & "," & Diapaz(6).Address & "," & Diapaz(7).Address & "," & Diapaz(.Address & ")"For i = 1 To 8 'g3If i = 1 Then​ ​ ​ Range("B1").Formula = "=SUM(" & Diapaz(i).Address(0, 0) & ")"Elsest = Range("B1").Formulast2 = Len(Range("B1").Formula)​Range("B1").Formula = Left(st, st2 - 1) & "," & Diapaz(i).Address(0, 0) & ")"End IfNext iEnd Sub

Sub Макрос10()

Dim Diapaz As Range
Dim Z As Range

​ ​ ​ Set Diapaz = Cells(50, 17)

For g = 1 To 12 Step 2
For i = 4 To 100 Step 2
​ ​ ​ ​ ​ ​ ​ Set Z = Cells(i, 1 + g)
​ ​ ​ ​ ​ ​ ​ Set Diapaz = Application.Union(Diapaz, Z)
Next i
Next g

Range("A1").Formula = "=SUM(" & Diapaz.Address & ")"
End Sub

мера1:=CALCULATE(SUM ( 'Таблица1'[Столбец2] );NOT(ISCROSSFILTERED ( 'Таблица2'[1]))||CONTAINSROW(DISTINCT('Таблица2'[1]);'Таблица2'[1]))

мера2:=IF(ISCROSSFILTERED ( 'Таблица2'[1]);CALCULATE(SUM ( 'Таблица1'[Столбец2] );CONTAINSROW(DISTINCT('Таблица2'[1]);'Таблица2'[1]));SUM ( 'Таблица1'[Столбец2] ))

= (filename)=>
let
    Источник = Excel.Workbook(File.Contents(filename), null, true),
    Лист1_Sheet = Источник{[Item="Лист1",Kind="Sheet"]}[Data],
    #"Повышенные заголовки" = Table.PromoteHeaders(Лист1_Sheet, [PromoteAllScalars=true]),
    #"Несвернутые столбцы" = Table.UnpivotOtherColumns(#"Повышенные заголовки", {"ФИО ", "Таб номер", "Автосалон"}, "Атрибут", "Значение"),
    #"Измененный тип2" = Table.TransformColumnTypes(#"Несвернутые столбцы",{{"Атрибут", type date}, {"Значение", type number}}),
    #"Строки с примененным фильтром" = Table.SelectRows(#"Измененный тип2", each ([Значение] <> null))
in
    #"Строки с примененным фильтром"

=
CALCULATE (
    SUM ( 'Таблица1'[Столбец2] );
    FILTER (
        VALUES ( 'Таблица1'[Столбец1] );
        IF (
            ISCROSSFILTERED ( 'Таблица2'[1] );
            'Таблица1'[Столбец1] IN FILTERS ( 'Таблица2'[1] );
            TRUE ()
        )
    )
)