Интуитивная работа функции: СЦЕПИТЬ

[alexsampler]

Добрый день, господа программисты!
Вот какую проблему очень нужно решить с вашей помощью!
EXCEL 2003 PS3

Можно ли сделать так, что бы excel объединял строки по определенному условию и еще и сам отсчитывал необходимое количество строк опять же условию для этого объединения?
Все в примере
СПАСИБО!

[EducatedFool]

Сделал макрос - вроде работает:

Sub test()
    Dim cell As Range, ra As Range, ar As Range, ra1 As Range, ra4 As Range
    Application.ScreenUpdating = False
    Set ra = Range("b:c").SpecialCells(xlCellTypeConstants)
    For Each cell In ra.Cells
        Set ra1 = Range(cell.EntireRow.Cells(1), cell.EntireRow.Cells(1).End(xlDown))
        Set ra4 = Range(cell.EntireRow.Cells(4), cell.EntireRow.Cells(4).End(xlDown))
        Set ar = Intersect(Range(cell, cell.End(xlDown).Offset(-1)).EntireRow, _
                           Union(ra1.EntireRow, ra4.EntireRow))
        Debug.Print cell.Address, ar.Address
        res1 = Join(Application.WorksheetFunction.Transpose(ar.Columns(1).Value))
        res4 = Join(Application.WorksheetFunction.Transpose(ar.Columns(4).Value))
        Debug.Print res1: Debug.Print res4: Debug.Print

        Range("j" & Rows.Count).End(xlUp).Offset(1).Resize(, 3).Value = _
        Array(cell, res1, res4)
    Next cell
End Sub

Пример в файле:

[nilem]

Ну раз уж нарисовал. В качестве варианта.