= НЕ(ЕОШИБКА(ГПР(A1; {"R1";"RW1";"RW2";"RW1R1";"RW2R1"};1;ЛОЖЬ)))

Sub Кнопка1_Щелчок()
    Dim pShape As Shape
    Set pShape = ActiveSheet.Shapes(Application.Caller)
    MsgBox "button on cells: " & pShape.TopLeftCell.Address & ":" & pShape.BottomRightCell.Address
End Sub

=Var latestYear = CALCULATE(MAXX('Таблица_данных'; 1 * 'Таблица_данных'[Год]); ALL('Таблица_данных')) & ""
Return SUMX(GROUPBY('Таблица_данных'; 'Таблица_данных'[Год]);
    IF('Таблица_данных'[Год] = latestYear;
        CALCULATE(SUM('Таблица_данных'[Сумма]));
        CALCULATE(SUM('Таблица_данных'[Сумма]); ALL('Таблица_месяцев'))
    )
)

Public Sub test()
    Dim yellwCellFormula As String, destCells As Range, values, i As Long
    yellwCellFormula = Range("B2").Formula
    Set destCells = Range("B3:B1000")
    values = destCells.Value
    For i = 1 To UBound(values)
        If IsEmpty(values(i, 1)) Then values(i, 1) = yellwCellFormula
    Next
    destCells.Value = values
End Sub

let
    baseUrl = "https://etp.gpb.ru/nsi/kimapi/publicpriceorderlist?limit=1000&page=",
    existed = List.Generate(
        () => [pageId = 1, url = baseUrl & Text.From(pageId), data = Json.Document(Web.Contents(url))[entries]],
        each List.Count([data]) > 0,
        each [pageId = [pageId] + 1, url = baseUrl & Text.From(pageId), data = Json.Document(Web.Contents(url))[entries]],
        each [data]
    ),
    toTable = Table.FromRecords(List.Combine(existed))
in
    toTable

Таблица = {
        (1.5, DATE(2017, 1, 1), CURRENCY(199.99), "A"),
        (2.5, DATE(2017, 1, 2), CURRENCY(249.99), "B"),
        (3.5, DATE(2017, 1, 3), CURRENCY(299.99), "C")
    }

=Var stats = ADDCOLUMNS(SUMMARIZE('Query1'; 'Query1'[DateKey]; 'Query1'[StoreKey]);
    "ds_avg"; CALCULATE(AVERAGE('Query1'[TotalCost]))
)
Return AVERAGEX(stats; [ds_avg])

=AVERAGEX(SUMMARIZE('Query1'; 'Query1'[DateKey]; 'Query1'[StoreKey]);
    CALCULATE(AVERAGE('Query1'[TotalCost]))
)

EVALUATE
ADDCOLUMNS(SUMMARIZE('Query1', Query1[DateKey], Query1[StoreKey]), "foo", 1)

var latestByReportDateAndProduct = CALCULATETABLE(TOPN(1; 'Таблица2'; 'Таблица2'[Дата  изменения]; DESC))

Return CALCULATE(SUM('Таблица2'[Сумма]); latestByReportDateAndProduct)

Return SUMX(latestByReportDateAndProduct; 'Таблица2'[Сумма])

=SUMX(GROUPBY('Таблица2'; 'Таблица2'[Дата отчета]; 'Таблица2'[Продукция]);
    var latestByReportDateAndProduct = CALCULATETABLE(TOPN(1; 'Таблица2'; 'Таблица2'[Дата  изменения]; DESC))
    Return CALCULATE(SUM('Таблица2'[Сумма]); latestByReportDateAndProduct)
)