= Web.Page(Web.Contents("URL", [Timeout=#duration(0,0,15,0)]))

=Json.Document(Web.Contents("https://is.gettask.ru/bo/analytics/calls_turnout_summary/?login=****&password=****&first_day=01.12.2021&last_day=15.15.2021",[Timeout=#duration(0,0,15,0)])

= Json.Document(Web.Contents("https://is.gettask.ru/bo/analytics/calls_turnout_summary/?",
[Query=[login="****",
password="****",
first_day="01.12.2021",
last_day="15.15.2021"]]))

= Json.Document(Web.Contents("https://is.gettask.ru/bo/analytics/calls_turnout_summary/?",
[Query=[login="****",
password="****",
first_day="01.12.2021",
last_day="15.15.2021",
Timeout=Text.From(#duration(0,0,3,0)))]]))

Срыв:=COUNTROWS(Filter('Таблица1';
'Таблица1'[Статус]<>"Отложено"&&
'Таблица1'[Статус]<>"В запросе"))

Sub test()
Dim r As Range

Set r = Range("A1:A100")
For Each i In r
i.Select
Next

End Sub

let
    Sourсe= qОбщаяТаблица,
    DelOtherCol = Table.SelectColumns(Source ,{"Город"}),
    Unique = Table.Distinct(DelOtherCol)
in
Unique

=CALCULATE(
COUNTROWS('Операции');
Filter( ALL('Операции');
'Операции'[дата]<=EARLIER('Операции'[дата])&&
'Операции'[Клиент]=EARLIER('Операции'[Клиент])))

let
    Source = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    Type = Table.TransformColumnTypes(Source,{{"дата", type date}}), // изменяем тип столбца с датами

      Form= List.Dates(
                 List.Min(Type[дата]),
                     Number.From(List.Max(Type[дата]))-
                     Number.From(List.Min(Type[дата]))+1,
                     #duration(1, 0, 0, 0)),                           //Формируем непрерывный список дат начиная с минимальной  с количеством дней равным разнице между максимальной и минимальной даты с добавлением 1 дня чтобы учесть последнее число
            Table = Table.FromList(Form, Splitter.SplitByNothing(), null, null, ExtraValues.Error),
                Rename = Table.RenameColumns(Table,{{"Column1", "Дата"}}),
                    TypeDate = Table.TransformColumnTypes(Rename,{{"Дата", type date}}),
                        Год = Table.AddColumn(TypeDate, "Год", each Date.Year([Дата]), Int64.Type),
                            НомерМесяца = Table.AddColumn(Год, "Месяц", each Date.Month([Дата]), Int64.Type),
                        Месяц = Table.AddColumn(НомерМесяца, "Название месяца", each Date.MonthName([Дата]), type text),
                    Квартал = Table.AddColumn(Месяц, "Квартал", each Date.QuarterOfYear([Дата]), Int64.Type),
                Неделя = Table.AddColumn(Квартал, "Неделя года", each Date.WeekOfYear([Дата]), Int64.Type),
           ДеньНедели = Table.AddColumn(Неделя, "Название дня", each Date.DayOfWeekName([Дата]), type text),
    #"Добавлен пользовательский объект" = Table.AddColumn(ДеньНедели, "Рабочий/Выходной", each if[Название дня]="суббота"or[Название дня]="воскресенье"  then "Выходной" else "Рабочий")
in
#"Добавлен пользовательский объект"

Мера 1:=AVERAGEX(
            SUMMARIZE(
                     Filter(
                        'Таблица1';'Таблица1'[Группа]="Начинающий");
            'Таблица1'[Дата];'Таблица1'[Группа];"new"; DISTINCTCOUNT('Таблица1'[Фаимлия]))
      ;[new])

Sub HideRows()
[B:B].SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
ActiveSheet.PrintOut
Rows.Hidden = False
End Sub