Преобразование базы данных в Excel2007

[Skolot]

Базу данных в виде таблицы на Sheet1
надо преобразовать к виду, показанному на Sheet2
Как это сделать стандартными средствами, не используя макрос?
to-forum.rar

[R Dmitry]

Сообщение от Skolot

Базу данных в виде таблицы на Sheet1
надо преобразовать к виду, показанному на Sheet2
Как это сделать стандартными средствами, не используя макрос?
Вложение 46865

из стандартных могу порекомендовать ctrl+C и ctrl+V

точно поможет

[Skolot]

Сообщение от R Dmitry

из стандартных могу порекомендовать ctrl+C и ctrl+V

точно поможет

Ну, я получше придумала
С помощью Advanced Filter, по кусочкам - указывая в критерии отбора повторяющиеся значения из столбца A.
Потом применяю формулу Concatenete для результата отбора и копирую значение формулы в нужное место.
Это крайне непроизводительно.
Хотелось бы как-то автоматизировать процесс.

[R Dmitry]

Сообщение от Skolot

Ну, я получше придумала
С помощью Advanced Filter, по кусочкам - указывая в критерии отбора повторяющиеся значения из столбца A.
Потом применяю формулу Concatenete для результата отбора и копирую значение формулы в нужное место.
Это крайне непроизводительно.
Хотелось бы как-то автоматизировать процесс.

автоматизация- подразумевает, передача процесса машине, вы же хотите как то иначе, без макроса

[Skolot]

Сообщение от R Dmitry

автоматизация- подразумевает, передача процесса машине, вы же хотите как то иначе, без макроса

Я хочу использовать формулы и методы, более остроумные и эффективные, чем те, что я использую.
Мне самой не нравится мой вариант, но не знаю, как переключиться на что-нибудь более разумное.

[R Dmitry]

Сообщение от Skolot

Я хочу использовать формулы и методы, более остроумные и эффективные, чем те, что я использую.
Мне самой не нравится мой вариант, но не знаю, как переключиться на что-нибудь более разумное.

когда тумблер щелкнет, что необходимо использовать программный код...
пишите поможем )

[Skolot]

Сообщение от R Dmitry

когда тумблер щелкнет, что необходимо использовать программный код...
пишите поможем )

Похоже, тумблер щелкнул. Я очень плохо знаю VBA и совсем не знаю, как задействовать написанный код. Но пора узнать.

[Hugo121]

Sub tt()
    Dim cc As Range, i&

    With Sheets(2)
        For Each cc In Sheets(1).[a1].CurrentRegion.Columns(1).Cells
            If cc.Font.Bold = True Then
                i = .Range("A" & .Rows.Count).End(IIf(Len(.Range("A" _
                & .Rows.Count)), xlDown, xlUp)).Row + 1
                cc.Offset(, 1).Copy .Cells(i, 1)
            Else
                .Cells(i + cc.Value, 1).Value = IIf(Len(.Cells(i + _
                cc.Value, 1).Value), .Cells(i + cc.Value, 1).Value _
                & "; " & cc.Offset(, 1).Value, cc.Offset(, 1).Value)
            End If
        Next
        .Columns.AutoFit
    End With
    
End Sub

Кликаете ПКМ на ярлыке листа, выбираете "Исходный код/View Code", копипастите в открывшееся окно модуля листа текст макроса, закрываете редактор.
Потом по Alt+F8 выбираете из списка макрос tt(можно ему дать любое другое имя), выполняете (кнопка правее).
Можно на лист поместить объект из рисунков (свой сделать), который связать с этим макросом - сможете запускать мышкой.
Можно повестить код на событие активации любой ячейки или ещё что-нибудь придумать...

[Skolot]

Все работает, спасибо большое!