Вот макрос Excel VBA для объединения ячеек в один столбец на основе условия:

Sub MergeCellsBasedOnCondition()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long

    ' Set the worksheet where the data is located
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' Replace "Sheet1" with your sheet name

    ' Find the last row in the column
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

    ' Loop through each row and merge cells based on the condition
    For i = 2 To lastRow ' Assuming data starts from row 2
        If ws.Cells(i, "A").Value = "Your Condition" Then ' Replace "Your Condition" with your own condition
            ' Merge cells in column A from the current row to the next row with the same value
            ws.Range("A" & i & ":A" & ws.Cells(i, "A").End(xlDown).Row).Merge
        End If
    Next i
End Sub

Этот макрос объединяет ячейки в столбце A на основе условия, указанного в коде. Вам необходимо заменить «Лист1» фактическим именем вашего листа, а «Ваше условие» — условием, которое вы хотите проверить. Макрос предполагает, что ваши данные начинаются со второй строки столбца A.

Вот несколько других способов объединения ячеек на основе условия в Excel без использования VBA:

1. Использование функции СЦЕПИТЬ: добавьте новый столбец рядом с вашими данными и используйте функцию СЦЕПИТЬ, чтобы объединить значения на основе условия. Затем скопируйте результаты и вставьте их как значения, чтобы заменить исходные данные.

2. Использование Power Query. Если у вас Excel 2010 или более поздней версии, вы можете использовать Power Query (получение и преобразование данных) для объединения ячеек на основе условия. Импортируйте данные в Power Query, примените необходимые преобразования и объедините ячейки, используя параметр «Группировать по» или «Группировать».

3. Использование условного форматирования. Примените условное форматирование, чтобы выделить ячейки, соответствующие вашему условию. Затем используйте параметр «Объединить и центрировать» в разделе «Выравнивание» на вкладке «Главная», чтобы объединить выделенные ячейки.

4. Использование формул. Используйте формулы, чтобы определить ячейки, соответствующие вашему условию, и отобразить объединенное значение в отдельном столбце. Например, для этого можно использовать функции ЕСЛИ и СЦЕПИТЬ.