Worksheets(1).ListObjects(1).Listrows.Count

= Table.SelectRows(#"Измененный тип", each Date.IsInNextMonth([Дата]) or Date.IsInCurrentMonth([Дата]) or [Дата] = Date.From(Date.AddMonths(Date.StartOfMonth(DateTime.LocalNow()), -11)))

=ПОЛУЧИТЬ.ДАННЫЕ.СВОДНОЙ.ТАБЛИЦЫ("[Measures].[Сумма по столбцу сумма]";$J$5;"[Диапазон].[месяц]";"[Диапазон].[месяц].&["&B22&"]")

Sub Kurs()
    Dim IE As Object
    Dim html As Object
    Dim t As String
    Dim holdings As Variant
    Set IE = CreateObject("internetexplorer.application")
    IE.Visible = 0
    IE.Navigate2 "https://ru.investing.com/currencies/eur-usd"


    Do While IE.Busy
        Application.Wait DateAdd("s", 1, Now)
    Loop

    Set html = IE.document
    Set holdings = html.getElementByID("last_last")
    t = holdings.textContent
    
    Range("A1").Value = CDec(t)
    Range("A1").NumberFormat = "General"

    IE.Quit
    Set IE = Nothing

End Sub

= Web.Page(Web.Contents("https://www.cbr.ru/hd_base/mosprime/?UniDbQuery.Posted=True&UniDbQuery.so=1&UniDbQuery.mode=1&UniDbQuery.From=31.07.2019&UniDbQuery.To=07.08.2021"))

= Web.Page(Web.Contents("http://www.cbr.ru/currency_base/dynamics/?UniDbQuery.Posted=True&UniDbQuery.mode=1&UniDbQuery.date_req1=&UniDbQuery.date_req2=&UniDbQuery.VAL_NM_RQ=R01235&UniDbQuery.From=23.07.2020&UniDbQuery.To=06.08.2021"))

=ИНДЕКС(ЛИНЕЙН($H4:$J4;ВЫБОР({1:2};ЕСЛИОШИБКА(LN($B4:$D4););ЕСЛИОШИБКА(LN($E4:$G4);));0;1);1;2)

Sub sidorova()
Dim r As Range
For Each r In Range("B2", Range("B2").End(xlDown))
If r.Offset(0, -1).Value = r.Offset(-1, -1).Value _
And r.Value <> r.Offset(-1, 0).Value Then
r.Interior.Color = vbYellow
r.Offset(-1, 0).Interior.Color = vbYellow
End If
Next r
End Sub

let
    Источник = {1..3},
    #"Преобразовано в таблицу" = Table.FromList(Источник, Splitter.SplitByNothing(), null, null, ExtraValues.Error),
    #"Добавлен пользовательский объект" = Table.AddColumn(#"Преобразовано в таблицу", "Пользовательская", each "www.planetaexcel.ru/"),
    #"Измененный тип" = Table.TransformColumnTypes(#"Добавлен пользовательский объект",{{"Пользовательская", type text}, {"Column1", type text}}),
    #"Объединенные столбцы" = Table.CombineColumns(#"Измененный тип",{"Пользовательская", "Column1"},Combiner.CombineTextByDelimiter("", QuoteStyle.None),"Сведено")
in
    #"Объединенные столбцы"