Sub x()
    Dim r As Range
    With [Таблица1[#all]]
        Set r = .Offset(.Rows.Count + 1)(1, 1)
        .Copy r: r.ListObject.Name = "Таблица2"
    End With
    With [Диаграмма 1].Duplicate
        .Top = .BottomRightCell.Offset(1).Top
        .Left = .Left - 12
        .Name = "Диаграмма 2"
        .Chart.SetSourceData [Таблица2]
    End With
End Sub

Function randb(a, b)
    Application.Volatile False
    Randomize Timer
    randb = Int(Rnd * (b - a)) + a
End Function

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

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

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

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

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

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

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

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

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

%localAppData%\Microsoft\Office\UnsavedFiles

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

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

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

=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