Объединение строчек опираясь на другой столбец

Posted by obzor under VBA

В файле 2 колонки. в первом столбце идет порядковый номер объекта в объеденной ячейке, которая равна кол-ву ячеек второго столбца. Во втором столбце идет построчно информация, которая соответствует объекту в ячейке первого столбца.
Необходимо объединить ячейки второго столбца, которые принадлежат объекту первого столбца. То есть, где то их 3 строки, где то 10, а где то и одна, которую нужно пропустить.

SAS888

Можно так:

Sub Main()
    Dim i As Long, j As Integer, s As String, cell As Range
    Application.ScreenUpdating = False: Application.DisplayAlerts = False
    [B:B].WrapText = True: i = 2
    Do While Cells(i, 1) <> ""
        j = Cells(i, 1).MergeArea.Cells.Count
        If j > 1 Then
            For Each cell In Cells(i, 1).MergeArea
                If cell.Offset(, 1) <> "" Then s = s & cell.Offset(, 1) & ", "
            Next
            Cells(i, 2).Resize(j).Merge: Cells(i, 2) = Left$(s, Len(s) - 2)
        End If
        i = i + j: s = ""
    Loop
End Sub

тема на форуме

Похожие статьи

• Ping из VBA
• Progress bar или индикация выполнения макроса в Microsoft Office Excel
• Запретить ввод пробелов в ячейки Excel
• Массовое переименование label на форме
• Вынести часть текста из многострочной ячейки по условию (Excel)
• Копирование данных в Excel «отталкиваясь» от последней заполненой строки
• Вставка данных в Excel после последней заполненной ячейки
• Как в Excel посчитать количество дней, прошедших с заданного числа
• Копирование данных «отталкиваясь» от последней заполненной строки Excel
• Как вытащить URL адрес из формулы с гиперссылкой в Excel