Как объединить ячейки во втором столбце при совпадении значений в первом столбце

@BorisD · Регистрация: 11.04.2013

Author24 — интернет-сервис помощи студентам

Здравствуйте. Помогите плиз.
В таблице есть повторяющиеся значения в первом столбце (код товара) и разные значения во втором (характеристики товара).
Нужно чтобы значения в первом столбце встречались только один раз (объеденить все повторяющиеся в одну ячейку) а соответствующие данному коду товара характеристики товара собрались во втором столбце в одну ячейку.
Во вложении пример с двумя листами: как есть и как надо.
Руками ооочень долго - 60 тыс строк.
Буду очень благодарен за совет.

@BorisD · 11.04.2013, 08:04 **[ТС]**

Не вложил файл сразу. Вот пример.

@Казанский · 11.04.2013, 10:45

Удобно макросом.

Visual Basic

Sub bb()
Dim x, v(), u(), i&
With CreateObject("scripting.dictionary")
    v = ActiveSheet.UsedRange.Columns(1).Value
    u = ActiveSheet.UsedRange.Columns(2).Value
    For Each x In v
        i = i + 1
        .Item(x) = .Item(x) & vbLf & u(i, 1)
    Next
    i = 0
    Worksheets.Add
    Columns(2).ColumnWidth = 40
    For Each x In .keys
        i = i + 1
        Cells(i, 1) = x
        Cells(i, 2) = Mid(.Item(x), 2)
    Next
End With
End Sub

@BorisD · 11.04.2013, 13:01 **[ТС]**

Спасибо за ответ.

18.10.2013, 13:23

Сообщение от Казанский

Удобно макросом.

Visual Basic

Sub bb()
Dim x, v(), u(), i&
With CreateObject("scripting.dictionary")
    v = ActiveSheet.UsedRange.Columns(1).Value
    u = ActiveSheet.UsedRange.Columns(2).Value
    For Each x In v
        i = i + 1
        .Item(x) = .Item(x) & vbLf & u(i, 1)
    Next
    i = 0
    Worksheets.Add
    Columns(2).ColumnWidth = 40
    For Each x In .keys
        i = i + 1
        Cells(i, 1) = x
        Cells(i, 2) = Mid(.Item(x), 2)
    Next
End With
End Sub

Добрый день, подскажите как расширить действие данного макроса на 3 столбца, т.е. условия такие-же, есть артикул, который повторяется и есть два столбца с описанием которые надо сложить, все мои попытки сделать это приводят либо к неадекватной работе скрипта, либо к повисшему экселю.

Добавлено через 11 минут
И возможно ли написать скрипт, чтобы он не объединял ячейки, а при совпадении артикула копировал ячейки 2 и 3 столбца в одну строку с сохранением форматирования т.е. к примеру 3 вхождения 1 артикула выглядели бы так (артикул | описание | комментарий | описание | комментарий )?

@BorisD 0 / 0 / 0 Регистрация: 11.04.2013 Сообщений: 3
		1
	Как объединить ячейки во втором столбце при совпадении значений в первом столбце 11.04.2013, 07:54. Показов 7474. Ответов 4 Метки нет (Все метки) Здравствуйте. Помогите плиз. В таблице есть повторяющиеся значения в первом столбце (код товара) и разные значения во втором (характеристики товара). Нужно чтобы значения в первом столбце встречались только один раз (объеденить все повторяющиеся в одну ячейку) а соответствующие данному коду товара характеристики товара собрались во втором столбце в одну ячейку. Во вложении пример с двумя листами: как есть и как надо. Руками ооочень долго - 60 тыс строк. Буду очень благодарен за совет. 0

@BorisD 0 / 0 / 0 Регистрация: 11.04.2013 Сообщений: 3
	11.04.2013, 13:01 [ТС]	4
	Спасибо за ответ. 0

	18.10.2013, 13:23