=СУММ(ИНДЕКС(C:C;ПРОСМОТР(;0^(C1:C9="");СТРОКА(C1:C9))):C9)

Table.SelectRowsWithErrors(#"Переименованные столбцы", Table.ColumnNames(#"Переименованные столбцы"))

GetSetting "test", "Defaults", ctl.Name ', ctl.Value

ctl.Value = GetSetting ("test", "Defaults", ctl.Name)

=ЕСЛИОШИБКА(ПОИСКПОЗ(1;D8:D999^0;)+СТРОКА();ПОИСКПОЗ(9E+307;A:A)+1)-ПОИСКПОЗ(9E+307;$D$1:D7)

=ПРОСМОТР(9E+307;D$7:D7)/$Q7

=ВПР(C3;ИНДЕКС(Лист2!$C$3:$E$5;Ч(ИНДЕКС(--Лист2!$B$3:$B$5;0));Ч(ИНДЕКС({2;1;3};0)));3;0)

Function DECIMAL2RGB(ColorVal) As Variant
'   Converts a color value to an RGB triplet
'   Returns a 3-element variant array
    With Application
        DECIMAL2RGB = .Bitand(.Bitrshift(ColorVal, Array(0, 8, 16)), &HFF)
    End With
End Function

Sub colorize()
    Dim p As Paragraph, prev&, b As Boolean
    Application.ScreenUpdating = 0
    With CreateObject("vbscript.regexp")
        .Global = False: .Pattern = "^\d+\.\d+\s"
        For Each p In ThisDocument.Paragraphs
            If .test(p.Range.Text) Then
                If prev > 0 Then
                    p.Parent.Range(prev - 1, p.Previous.Range.End).HighlightColorIndex = IIf(b, 3, 7)
                End If
                prev = p.Range.Start + 1
                b = Not b
            ElseIf p.Next Is Nothing Then
                p.Parent.Range(prev - 1, p.Range.End).HighlightColorIndex = IIf(b, 3, 7)
            End If
        Next
    End With
    Application.ScreenUpdating = 1
End Sub

=АГРЕГАТ(14;6;C2:C38/(ПРОСМОТР(B2:B38;{0,065;0,072})=0,065);1)

((196*256<<8)+212*256+72).toString(16) //результат - c4d448

application.dec2hex(rgb(196,212,72),6) 'результат - 48D4C4

dim v as variant
'...
v = GetSetting(APPNAME, "Defaults", ctl.Name, ctl.Value)
if isnumeric(v) then
    ctl.Value = v
endif

'[select.special(11)]'
'[select(, "RC1")]'

Private Sub Worksheet_Calculate()
    Worksheets(Me.Name).UsedRange
    Me.Cells.SpecialCells(11).EntireRow.Cells(, "A").Select
End Sub

=ДАТА(ЛЕВБ(A2;4);ПСТР(A2;5;2);ПРАВБ(A2;2))