Объединение яйчеек по номерам

[Pimalux]

Добрый день всем.
Нужна подсказка, как можно проделать следующую операцию.
Есть массив данных, в котором встречаются повторяющиеся порядковые номера. Строчки с такими номерами отличаются лишь значением в одном из столбцов массива.
Каким образом можно получить таблицу, в которой повторяющихся номеров не будет, а значения соответствующие им будут сцеплены в одной яйчейке.
Заранее спасибо, извиняюсь за немного мутные объяснения и прилагаю пример.
Пример.zip

[SAS888]

Посмотрите вложение. Запустите макрос "Main"

[Pimalux]

Вот спасибо!!! А что можно прописать в макросе, что бы он еще и суммировал цифры по столбцу количество? Вы не представляете как это облегчит мне жизнь=)

[Pimalux]

Sub Main()

Dim i As Long: Application.ScreenUpdating = False
For i = Cells(Rows.Count, 1).End(xlUp).Row To 3 Step -1
If Cells(i, 1) = Cells(i - 1, 1) Then
Cells(i - 1, 6) = Cells(i - 1, 6) + Cells(i, 6):
Cells(i - 1, 4) = Cells(i - 1, 4) & " " & Cells(i, 4): Rows(i).Delete
End If
Next

End Sub
Так правильно?

[SAS888]

Так правильно?

Вообще-то, на этот вопрос лучше Вас никто не ответит.

[Pimalux]

В таком случае огромное человеческое спасибо за помощь.
Единственная проблема - когда в объединенных яйчейках сцепляются более 40 значений, то Excel показывает лишь #######. Это программное ограничение на длину текста, или с этим что-то можно сделать?

[SAS888]

Есть у Excel такой баг. И объединенные ячейки здесь ни при чем.
Попробуйте (для Вашего примера) так:

Sub Main()
    Dim i As Long: Application.ScreenUpdating = False
    For i = Cells(Rows.Count, 1).End(xlUp).Row To 3 Step -1
        If Cells(i, 1) = Cells(i - 1, 1) Then
            Cells(i - 1, 6) = Cells(i - 1, 6) + Cells(i, 6)
            Cells(i - 1, 4) = Cells(i - 1, 4) & " " & Cells(i, 4): Rows(i).Delete
        End If
    Next
    With [L:L]
        [D:D].Copy
        .PasteSpecial Paste:=xlPasteValues
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = True
        .Cut [D1]
        [A1].Select
    End With
End Sub

[Pimalux]

Работает!!!
Еще раз спасибо.
Захотите построить деревянный дом - обращайтесь, помогу с проектом.=)