= CALCULATE ( [Дельты]; 
   FILTER(VALUES('Таблица1'[Клиент]);
   RANKX( ALL('Таблица1'[Клиент]); [Дельты];;ASC)<=2)
)

= VAR TB = SUMMARIZE('Таблица1'; 'Таблица1'[Клиент]; 'Календарь'[WEEK_END]; "dlt"; [Дельты])
VAR TOP2 = TOPN(2; TB; [dlt]; ASC)
VAR RES = CALCULATE([Дельты]; TOP2)

RETURN RES

VAR CUR_DT = MAX('Таблица1'[Дата])
VAR FLT = FILTER(ALL('Таблица1'[Тип];'Таблица1'[ФЛ_ЮЛ]; 'Таблица1'[Исключение]);
         'Таблица1'[Тип] = "Основной"            
         && 'Таблица1'[ФЛ_ЮЛ] = "ЮЛ"
         && 'Таблица1'[Исключение] = 0
      )
VAR PREV = CALCULATE( SUM('Таблица1'[Сумма]); 
          FLT; 'Таблица1'[Дата] = CUR_DT - 7 
           )
VAR CURR = CALCULATE( SUM('Таблица1'[Сумма]); 
          FLT; 'Таблица1'[Дата] = CUR_DT 
           )
VAR RES = CURR - PREV

RETURN RES

=VAR TBL = ALL('Таблица1'[Имя]; 'Таблица1'[Показатель])

VAR NM = DISTINCT('Таблица1'[Имя])

VAR ADDC = 
   ADDCOLUMNS(   TBL;
         "rn";
         CALCULATE(COUNTROWS(TBL);
         NM = 'Таблица1'[Имя]
         )
   )
   
   
VAR RES = CALCULATE(SUM('Таблица1'[Сумма]);
         FILTER(ADDC;
         [rn] = 2
         )
      )
      
RETURN 
   RES

=VAR TBL = 
      TOPN(
         3;
         ALL('Данные'[Наименование]);
         CALCULATE([Дельта];
            'Календарь2'[YM] = 202109
         );
      )            
   
VAR TBL2 = 
      TOPN(
         3;
         ALL('Данные'[Наименование]);
         CALCULATE([Дельта];
            'Календарь2'[YM] = 202109 
         );
         1
      )            
VAR RES = CALCULATE(
            SUM('Данные'[Сумма]);
            ('Календарь2'[YM] = 202106 ||
            'Календарь2'[YM] = 202109);
            KEEPFILTERS(UNION(TBL2;TBL) 
            )
         )

RETURN
   RES

= CALCULATE(
   SUM('Данные'[Сумма]);
   DATEADD('Календарь'[DT]; -1;MONTH)
)

=VAR CURR_M = MAX('Календарь'[MONTH])
   
RETURN 
CALCULATE(
   SUM('Данные'[Сумма]);
   'Календарь'[MONTH] = (CURR_M-1)
   )

=VAR CURR_DT = MAX('Календарь'[DT])
               
RETURN
IF(
   [AllSum] <> 0 && 
   ENDOFQUARTER('Календарь'[DT]) = CURR_DT;
   [AllSum] - 
   CALCULATE(
      [AllSum];
      ALL('Календарь'[DT]);
         DATEADD(
            'Календарь'[DT];
            -1;
            QUARTER
      )
   )
)

= Table.AddColumn(AddShortN, "Пользовательская", each if Text.Contains([Раздел], "ИТОГО") then "111" else [Подраздел])

    strSql = "SELECT * FROM [" & ws_base.Name & "$] IN '" & xlFile & "' [Excel 12.0; Xml; hdr=yes;]"
    rs.Open strSql, cn

SQLstr = "SELECT t1.[Имя], t2.[Сумма] FROM [" & dbTableName & "] AS t1 " & _     
"LEFT JOIN (SELECT t.[Период], t.[Имя], t.[Сумма] FROM [" & dbTableName & "] t WHERE t.[Период] > #02/01/2019#) AS t2 " & _     
"ON t1.[Имя] = t2.[Имя] GROUP BY t2.[Период], t1.[Имя], t2.[Сумма]"

ActiveWorkbook.Connections.Add "AccDatabase", "", _
   "ODBC;DSN=MS Access Database;DBQ=" & _
   dbFullName & ";DefaultDir=" & dbPath & ";" &_
   "DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;", _
       "SELECT * FROM `" & dbFullName & "`." & dbTableName, 2

PT.ChangeConnection ActiveWorkbook.Connections("AccDatabase")

tName = "TestTable"
xlSheetName = ThisWorkbook.ActiveSheet.Name
xlFile = ThisWorkbook.Path & "\" & ActiveWorkbook.Name

Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & xlFile & "; Extended Properties=""Excel 12.0; Xml; HDR=Yes"""

Set dbcn = New ADODB.Connection
dbcn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & dbFile

'стираем старую таблицу, если она есть
On Error Resume Next
strSQL = "DROP TABLE [" & tName & "]"
dbcn.Execute strSQL
On Error GoTo 0

'создаем новую таблицу с нужными полями
strSQL = "CREATE TABLE [" & tName & "] ([num] integer, [date] date, [summ] long)"
dbcn.Execute strSQL

'вставляем данные в таблицу 
strSQL = "INSERT INTO [" & tName & "] SELECT * FROM [" & xlSheetName & "$]  IN '" & xlFile & "' [Excel 12.0; Xml; hdr=yes;]"
dbcn.Execute strSQL

cn.Close
dbcn.Close
    
Set cn = Nothing
Set dbcn = Nothing

=ИНДЕКС($B$2:$B$16;НАИМЕНЬШИЙ(ЕСЛИ($E$2=A2:A16;СТРОКА(B2:B16)-1;"");СТРОКА(ДВССЫЛ("1:"&ЧСТРОК($B$2:$B$16)))))

    For Each itm In ws.Range("Суммы")
        If itm = "" Then GoTo ToNext
        ...
        ...
ToNext:
    Next itm

str = ThisWorkbook.Sheets("Данные")  .Range("A1")  
Set ws = ThisWorkbook.Sheets(str)