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

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

=ЕСЛИ(И(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]Не равно;Равно

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

=E7&СИМВОЛ(10)&E8&СИМВОЛ(10)&E9&СИМВОЛ(10)&E10&СИМВОЛ(10)&E11&СИМВОЛ(10)&E12&СИМВОЛ(10)&E13

=E7&"
"&E8&"
"&E9&"
"&E10&"
"&E11&"
"&E12&"
"&E13

Function JoinLF$(ByRef r As Range)
    Dim v
    If r.Count = 1 Then JoinLF = " " & r: Exit Function
    For Each v In r.Value
        If Not IsEmpty(v) Then JoinLF = JoinLF & IIf(JoinLF > "", vbLf, "") & v
    Next
End Function

let
    Source = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    f1 = (_)=>DateTime.ToText(_,"dd.MMM","ru-ru"),
    a  = Table.TransformColumns(Table.ReplaceValue(Source,null,"",Replacer.ReplaceValue,{"Цена", "Комментарий"}),{{"Дата",f1},{"Дата2",f1}}),
    f2 = (t,s,s1)=>Table.RenameColumns(Table.SelectColumns(Table.UnpivotOtherColumns(t, {"Дата", "Дата2", "Наименование ", s}, "Атрибут", "Значение"),{s1, "Наименование ", "Атрибут", "Значение"}),{{s1,"Дата"}}),
    b  = List.Distinct(a[Дата]&a[Дата2]),
    c  = Table.Combine({f2(a, "Цена","Дата"),f2(a, "Комментарий","Дата2")}),
    f3 = (t)=>Table.RemoveColumns(Table.Pivot(t, b, "Дата", "Значение"),{"Наименование ", "Атрибут"}),    
    d  = Table.Group(c, {"Наименование ", "Атрибут"}, {{" ",f3}}),
    e  = Table.Pivot(d, List.Distinct(d[Атрибут]), "Атрибут", " ")[[#"Наименование "],[Цена],[Комментарий]],
    f4 = (t,s)=>Table.ExpandTableColumn(t, s,b, List.Transform(b,each s&" "&_)),
    f  = f4(f4(e, "Цена"), "Комментарий")
in
    f

Sub m()
    For i = 1 To Sheets.Count
        Select Case Sheets(i).Name
            Case "Общий", "СВОД СМЕТ"
            Case Else
                myR_Total = Sheets("Общий").Range("A" & Sheets("Общий").Rows.Count).End(xlUp).Row
                myR_i = Sheets(i).Range("A" & Sheets(i).Rows.Count).End(xlUp).Row
                Sheets(i).Rows("1:" & myR_i).Copy Destination:=Sheets("Общий").Range("A" & myR_Total + 6)
        End Select
    Next
    With Columns("A:D").Font
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
    End With
    Range("A1").Select
End Sub

Sub m()
    For i = 1 To Sheets.Count
        If UBound(Filter(Array("Общий", "СВОД СМЕТ"), Sheets(i).Name)) < 0 Then
            myR_Total = Sheets("Общий").Range("A" & Sheets("Общий").Rows.Count).End(xlUp).Row
            myR_i = Sheets(i).Range("A" & Sheets(i).Rows.Count).End(xlUp).Row
            Sheets(i).Rows("1:" & myR_i).Copy Destination:=Sheets("Общий").Range("A" & myR_Total + 6)
        End If
    Next
    With Columns("A:D").Font
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
    End With
    Range("A1").Select
End Sub

=ИНДЕКС(ДанныеИмпорт!$K:$K;АГРЕГАТ(15;6;СТРОКА(ДанныеИмпорт!$K$2:$K$34)/ПОИСК($U$2;ДанныеИмпорт!$K$2:$K$34)^0;S2))

%localAppData%\Microsoft\Office\UnsavedFiles

=ИНДЕКС(Список!A:A;Арки!A2)

=ЕСЛИ(ЯЧЕЙКА("столбец")=6;ИНДЕКС(G:G;ЯЧЕЙКА("строка"));[@Столбец2])

=ЕСЛИ(ЯЧЕЙКА("столбец")=6;ИНДЕКС(H:H;ЯЧЕЙКА("строка"));[@Столбец4])

по.двойному.щелчку()

=ЕСЛИ(ЕПУСТО(B4);D3;B4&" "&СЧЁТЕСЛИ($B4:B$4;B4))

=ПОЛУЧИТЬ.ЯЧЕЙКУ(11;Лист1!F4)

=ИНДЕКС(Таблица1[#Заголовки];;2):ИНДЕКС(Таблица1[#Заголовки];;СЧЁТЗ(Таблица1[#Заголовки]))

Function a(ByRef r As Range) As Range
    Set a = Intersect(r, r.Offset(, 1))
End Function

=a(Таблица1[#Заголовки])