let
    Source = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    #"Unpivoted Other Columns" = Table.UnpivotOtherColumns(Source, {"Наименование клиента"}, "Месяц", "Чего-то там-с"),
    trans = Table.TransformColumns(#"Unpivoted Other Columns", {"Чего-то там-с", each if _ is number then _ else try Number.From(_, "en-US") otherwise null}),
    #"Changed Type" = Table.TransformColumnTypes(trans,{{"Наименование клиента", type text}, {"Месяц", type text}, {"Чего-то там-с", type number}})
in
    #"Changed Type"

active Count = Var maxDate = MAX('Calendar'[Date])
Var allClients = CALCULATETABLE('Ученики', ALLSELECTED('Финансы'[Date 1]))
Var neededClients = FILTER(allClients,
    'Ученики'[Дата первого платежа] <= maxDate 
    && (ISBLANK('Ученики'[Дата прекращения занятий]) || maxDate <= 'Ученики'[Дата прекращения занятий])
    && NOT('Ученики'[Статус ученика] = "Нерегулярный клиент")
)
Return COUNTROWS(GROUPBY(neededClients, 'Ученики'[№ клиента]))

function getColumnIdByValue(searchValue, dataRange) {
  const rowCount = dataRange.length;
  var result, i;
  for (i = 0; i < rowCount; i += 1) {
    result = dataRange[i].indexOf(searchValue);
    if (result > -1) {
      break;
    };
  };
  return (result > -1 ? result + 1 : result);
}

active Count = Var maxDate = MAX('Calendar'[Date])
Var allClients = CALCULATETABLE('Ученики', ALLSELECTED('Финансы'[Date 1]))
Var neededClients = FILTER(allClients, 'Ученики'[Дата первого платежа] <= maxDate && ISBLANK('Ученики'[Дата прекращения занятий]))
Return COUNTROWS(GROUPBY(neededClients, 'Ученики'[№ клиента]))

Source = Csv.Document(File.Contents("C:\Users\SBT-Gritsenko-AV\Downloads\Отчет.txt"),[Delimiter=";", Columns=6, Encoding=65001, QuoteStyle=QuoteStyle.None])

=SUMX(VALUES('Таблица1'[год]);
   CALCULATE(DISTINCTCOUNT([сч_фк]))
)

        .Item(CDO_Cnf & "smtpserverport") = 25 'для Яндекса и Gmail 465

Private Sub CommandButton1_Click()
    Set Image1.Picture = LoadPicture("C:\Temp\icons\standard_icons_web_32_16.jpg")
End Sub

let
    Source = {1..10}, 
    n = List.Count(Source),
    generalSTD = Number.Sqrt((n - 1) / n) * List.StandardDeviation(Source)
in

let
    Source = Odbc.Query(
        "Driver={Microsoft Access dBASE Driver (*.dbf, *.ndx, *.mdx)};Dbq=c:\Path\dbf", 
        "Select * From [02200002]"
        & " Union All Select * From [001]"
        & " Union All Select * From [file01]"
    )
in
    Source