Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Объединение строк в ячейку
 
#1
28.03.2017 11:21:50
Здравствуйте, помогите пожалуйста объединить строки ячейку. В примере сделал три итерации для наглядности, в конечном итоге хотелось бы получить чтобы строки объединялись в ячейки с первой итерации в третью. В исходном документе строк большое количество и выделять в ручную достаточно проблематично, есть возможность придать началу диапазона (наименование пункта) придать цвет.
 
 
 
#2
28.03.2017 12:16:10
В ЭТОЙ Вашей теме мой макрос, в первом цикле именно это и делает. Но нужно ли оно Вам отдельно от всего остального?
Согласие есть продукт при полном непротивлении сторон
 
 
 
#3
28.03.2017 12:20:47
Хотя нет, немного не то, но допилить к нужному Вам виду возможно, но нужно-ли, если окончательный вариант это все же таблица?
Согласие есть продукт при полном непротивлении сторон
 
 
 
#4
28.03.2017 12:58:26
Теперь требуется ещё и дополнительно оформить таблицу с полными данными по пункту.
 
 
 
#5
28.03.2017 15:01:51
Код
Sub RETABLE()
Dim arrTemp(), arrVal()
Dim I&, J&
Application.ScreenUpdating = False
On Error Resume Next
arrVal = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row).Value
For I = 1 To UBound(arrVal)
    ReDim Preserve arrTemp(J)
    If Not arrVal(I, 1) Like "Пункт*" Then
        arrTemp(J) = arrTemp(J) & " " & arrVal(I, 1)
    Else
        J = J + 1
        arrTemp(J) = arrVal(I, 1)
    End If
Next
With Range("D1")
    .CurrentRegion.Clear
    .Resize(UBound(arrTemp) + 1) = Application.Transpose(arrTemp)
End With
Application.ScreenUpdating = True
End Sub
Согласие есть продукт при полном непротивлении сторон
 
 
 
Страницы: 1
Наверх