"=DaysUntilToday(" & sss & ")"

range().FormulaR1C1 = "=DaysUntilToday(RC2)"

=ЕСЛИ(((RC[-1]>R3C5)*(RC[-1]<R3C6))=1;RC[-1];СЛУЧМЕЖДУ(R3C5;R3C6))

Function MyWBPriceParser(WBID As String)
    Dim objHTTP As Object, key As String, WBresp As String, url As String, Start As String, Finish As String
'   === Сюда свой токен ===
    key = ""
'   =======================
    url = "https://discounts-prices-api.wildberries.ru/api/v2/list/goods/filter&filterNmID=" & WBID
    Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP.6.0")
    Call objHTTP.Open("GET", url)
    Call objHTTP.setRequestHeader("Content-Type", "application/json")
    Call objHTTP.setRequestHeader("Authorization", key)
    Call objHTTP.send()
    WBresp = objHTTP.responseText
    Start = InStr(1, WBresp, "discountedPrice") + 18
    Finish = InStr(Start, WBresp, ",")
    MyWBPriceParser = Mid(WBresp, Start, Finish - Start)
End Functionn

Function RequestAPI(url As String, Optional com as String = "GET", Optional reqBody As String = "") As String
    Dim objHTTP As Object, key As String
'   === Сюда свой токен ===
    key = ""
'   =======================
    Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP.6.0")
    Call objHTTP.Open(com, url)
    Call objHTTP.setRequestHeader("Content-Type", "application/json")
    Call objHTTP.setRequestHeader("Authorization", key)
    Call objHTTP.send(reqBody)
    RequestAPI = objHTTP.responseText
End Function

Function RequestAPI(url As String, Optional reqBody As String = "") As String
    Dim objHTTP As Object, key As String
'   === Сюда свой токен ===
    key = ""
'   =======================
    Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP.6.0")
    Call objHTTP.Open("GET", url)
    Call objHTTP.setRequestHeader("Content-Type", "application/json")
    Call objHTTP.setRequestHeader("Authorization", key)
    Call objHTTP.send(reqBody)
    RequestAPI = objHTTP.responseText
End Function

=ТРАНСП(ФИЛЬТР(C12;ЛЕВСИМВ(C12;3)="КН1"))

=УНИК(ФИЛЬТР(C12;НЕ(ЛЕВСИМВ(C12;3)="КН1")*(C12<>"")))

=ЕСЛИОШИБКА(ПРОСМОТРX(ТИП.ОШИБКИ(<формула>);{1;2;3;4;5;6;7;8;9;10;11;12;13;14};{"#ПУСТО!";"#ДЕЛ/0!";"#ЗНАЧ!";"#ССЫЛ!";"#ИМЯ?";"#ЧИСЛО!";"#Н/Д";"#ОЖИДАНИЕ_ДАННЫХ";"#ПЕРЕНОС!";"#ПОДКЛЮЧ!";"#ЗАБЛОКИРОВАНО!";"#НЕИЗВЕСТНО!";"#ПОЛЕ!";"#ВЫЧИСЛ!"};"Опа, новая ошибка";0;1);<формула>)

Sub DownloadBikFile(myPath As String, fileName As String)
    Dim HttpObj As Object, StreamObj As Object, FileObj As Object, deCompObj As Object
    Set HttpObj = CreateObject("Microsoft.XMLHTTP")
    HttpObj.Open "GET", "http://cbr.ru/s/newbik", False
    HttpObj.send
    If HttpObj.Status = 200 Then
        Set StreamObj = CreateObject("ADODB.Stream")
        StreamObj.Open
        StreamObj.Type = 1
        StreamObj.Write HttpObj.responseBody
        StreamObj.SaveToFile myPath & "\temp.zip", 2
        StreamObj.Close
        Set deCompObj = CreateObject("WScript.Shell").Exec("powershell -command Expand-Archive -LiteralPath '" & myPath & "\temp.zip" & "' -DestinationPath '" & myPath & "'")
        Do While deCompObj.Status = 0
        Loop
        Set FileObj = CreateObject("Scripting.FileSystemObject")
        FileObj.getfile(myPath & "\temp.zip").Delete
        If FileObj.FileExists(myPath & "\" & fileName) Then FileObj.getfile((myPath & "\" & fileName)).Delete
        For Each i In FileObj.getfolder(myPath).Files
            If Right(i.Name, 3) = "xml" Then
                i.Name = fileName
                Exit For
            End If
        Next
    End If
End Sub

Dim lstLine As Long, aSt As Worksheet
Set aSt = ActiveWorkbook.ActiveSheet
lstLine = aSt.Cells(Rows.Count, 1).End(xlUp).Row
aSt.Range(aSt.Cells(2, 11), aSt.Cells(lstLine, 11)).Formula2R1C1Local = "=ЕСЛИ(СУММПРОИЗВ(--ЕЧИСЛО(ПОИСК(ЦЕЛОЕ(RC[-1]);ЦЕЛОЕ(R1C[-1]:RC[-1]))))=1;ЦЕЛОЕ(RC[-1]);"""")"
aSt.Range(aSt.Cells(2, 12), aSt.Cells(lstLine, 12)).Formula2R1C1Local = "=ЕСЛИ(RC[-1]<>"""";СУММ((ЕСЛИ(ЕЧИСЛО(--R2C[-2]:R1000C[-2]);ЦЕЛОЕ(R2C[-2]:R1000C[-2]))=ЦЕЛОЕ(RC[-2]))*ЕСЛИ(ЕЧИСЛО(--R2C[-2]:R1000C[-2]);R2C[-9]:R1000C[-9]));"""")"
aSt.Range(aSt.Cells(2, 13), aSt.Cells(lstLine, 13)).Formula2R1C1Local = "=ЕСЛИОШИБКА(RC[-1]-RC[-1]*1%;"""")"

Sub DownloadBikFile(myPath As String, fileName As String)
    Dim HttpObj As Object, StreamObj As Object, FileObj As Object
    Set HttpObj = CreateObject("Microsoft.XMLHTTP")
    HttpObj.Open "GET", "http://cbr.ru/s/newbik", False
    HttpObj.send
    If HttpObj.Status = 200 Then
        Set StreamObj = CreateObject("ADODB.Stream")
        StreamObj.Open
        StreamObj.Type = 1
        StreamObj.Write HttpObj.responseBody
        StreamObj.SaveToFile myPath & "\temp.zip", 2
        StreamObj.Close
        CreateObject("WScript.Shell").Exec ("powershell -command Expand-Archive -LiteralPath '" & myPath & "\temp.zip" & "' -DestinationPath '" & myPath & "'")
'===================================================
        
        
        Application.Wait Now + #12:00:05 AM#
        
        
'===================================================
        Set FileObj = CreateObject("Scripting.FileSystemObject")
        FileObj.getfile(myPath & "\temp.zip").Delete
        FileObj.getfile(myPath & "\" & fileName).Delete
        For Each i In FileObj.getfolder(myPath).Files
            If Right(i.Name, 3) = "xml" Then
                i.Name = fileName
                Exit For
            End If
        Next
    End If
End Sub

=МИН(МАКС(<Ваша формула>;<ограничение снизу>);<ограничение сверху>)

=Срзнач()*182,5

=если(R[-1]C=<формула поиска даты>;"";<формула поиска даты>)

ИНДЕКС(R2;1;СТОЛБЕЦ(RC)-ОСТАТ(СТОЛБЕЦ(RC);2))

=СУММПРОИЗВ(№2!C3;--(№2!C2=R2C);--(№2!C1=RC1))
=СУММПРОИЗВ(№2!C4;--(№2!C2=R2C[-1]);--(№2!C1=RC1))

rng.Cells(i, j).Value = "заменить"

rng.Replace What:="заменить", Replacement:="0"