let
    Source = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    Translations = Table.Buffer(Table.Combine(List.Transform({"Таблица2","Таблица3"},each Table.Skip(Table.DemoteHeaders(Excel.CurrentWorkbook(){[Name=_]}[Content]),1)))),
    Replace = Table.ReplaceValue(Table.ReplaceValue(Source,",","""))},{t(""",Replacer.ReplaceText,{"Столбец2"}),":","""),fn(t(""",Replacer.ReplaceText,{"Столбец2"}),
    Evaluate = Table.TransformColumns(Replace,{{"Столбец2",each Table.FromRows(Expression.Evaluate("{{t("""&_&"""))}}",[t=Text.Trim,fn=(v)=>try Translations{[Column1=v]}[Column2] otherwise v]))}}),
    Custom1 = Table.TransformColumns(Evaluate,{{"Столбец2", each Combiner.CombineTextByDelimiter(", ")(Table.ToList(_,Combiner.CombineTextByDelimiter(": ")))}})
in
    Custom1

=ЕСЛИ(И(G10<>"";H11<>"");ЕСЛИ(ЕСЛИОШИБКА(И(СОВПАД(ИНДЕКС(J$1:J10;Ч(ИНДЕКС(ПРОСМОТР(2;1/(J$1:J10<>"");СТРОКА(J$1:J10))-{0;1};)));0)););ЕСЛИ(ЕСЛИОШИБКА(СЧЁТЕСЛИ(ИНДЕКС(G$1:G10;ПРОСМОТР(2;1/(J$1:J10<>"");СТРОКА(J$1:J10))+1):G10;"A")>0;G10="A");Ч(G10=H11);"");Ч(G10=H11));"")

[=0]Не равно;Равно

Sub xx()
    With [Группа 4].ShapeRange.Duplicate
        .Left = .Left + .Width - 12
        .Top = .Top - 12
        .Flip 0
    End With
End Sub

Sub drawCircles()
    Dim pCircle As Shape
    Dim pPoly As Shape
    Dim pNodes As ShapeNodes
    Dim pSheet As Worksheet
    Dim kNode As Long, xOff As Double, yOff As Double
    Dim dX As Double, dY As Double, pointDist As Double
    Dim Xc As Double, Yc As Double, curDist As Double
    Set pSheet = ActiveSheet
    Set pPoly = pSheet.Shapes("Полилиния 2")
    Set pCircle = pSheet.Shapes("Овал 16")
    xOff = -0.5 * pCircle.Width
    yOff = -0.5 * pCircle.Height
    curDist = 0#
    Set pNodes = pPoly.Nodes
    For kNode = 1 To pNodes.Count - 1
        dX = pNodes(kNode + 1).Points(1, 1) - pNodes(kNode).Points(1, 1)
        dY = pNodes(kNode + 1).Points(1, 2) - pNodes(kNode).Points(1, 2)
        pointDist = Math.Sqr(dX ^ 2 + dY ^ 2)
        dX = dX / pointDist
        dY = dY / pointDist
        Do Until curDist > pointDist
            Xc = pNodes(kNode).Points(1, 1) + curDist * dX + xOff
            Yc = pNodes(kNode).Points(1, 2) + curDist * dY + yOff
            'pSheet.Shapes.AddShape msoShapeOval, Xc, Yc, pCircle.Width, pCircle.Height
            With [Овал 16].Duplicate
                .Top = Yc
                .Left = Xc
            End With
            curDist = curDist + 50
        Loop
        curDist = curDist - pointDist
    Next
End Sub

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

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

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

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

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

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

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

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