=ПОДСТАВИТЬ(ПОДСТАВИТЬ(A1;"R8";"");"_";"")

Dim rng As Object

Set rng = Worksheets("ГРАФИК ПЛАТЕЖЕЙ").ListObjects("Payments").Range
rng.FormatConditions(2).ModifyAppliesToRange rng

    xStrBody = "<h2>Привет</h2>" _
               & "<h3>Новые данные" & "</h3>" _
               & Chr(10) & TableToHtml(ActiveSheet.ListObjects("Таблица1").Range) & Chr(10) _
               & "<br>Пока</br>"

let
    Источник = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    #"Измененный тип" = Table.TransformColumnTypes(Источник,{{"Столбец1", type text}}),
    #"Обрезанный текст" = Table.TransformColumns(#"Измененный тип",{{"Столбец1", (x)=>Text.Combine(List.RemoveItems(Text.Split(x," "),{""})," "), type text}})
in
    #"Обрезанный текст"

=СУММ(ЕСЛИОШИБКА(ЗНАЧЕН(C3:AG3);0))

=СУММ(C1:C12*F1:F12*(A1:A12>0))

=ЕСЛИ(СУММ((G6:G15<0)*1)>0;"Есть отрицательный остаток";"")

    #"Добавлен пользовательский объект" = Table.AddColumn(#"Развернутый элемент Object", "SectorID", each Text.Combine( [SectorsList][Sector]{0}[SectorID], ",")),
    #"Добавлен пользовательский объект1" = Table.AddColumn(#"Добавлен пользовательский объект", "Azimuth", each Text.Combine( [SectorsList][Sector]{0}[Azimuth], ",")),
    #"Добавлен пользовательский объект2" = Table.AddColumn(#"Добавлен пользовательский объект1", "SectorID_all", each List.Count( [SectorsList][Sector]{0}[SectorID] ))
in
    #"Добавлен пользовательский объект2"