Я пытаюсь объединить ячейки в строке, если значение существует в ячейке в этой строке.

Данные были импортированы из файла .txt, а различные подзаголовки разделены на 2, 3 или 4 столбца.

Ячейки не могут быть объединены, так как данные будут храниться только из первой ячейки.

Единственные слова, которые всегда постоянны, это «содержать» и «для» в столбце B.

То, что я пробовал, напоминает это:

Если ячейка. Значение нравитсясодержать", или же "зазатем соедините все ячейки от столбца «A» до столбца «H» в столбце «B», выровняйте их по центру и выделите жирным шрифтом.

Заранее благодарю за любую помощь.

Редактировать Вот код:

    Sub Joining()
    Dim N As Long, i As Long, r1 As Range, r2 As Range
 Dim z As Long
 Dim arr() As Variant
 z = 1

With Activesheet
    N = .Cells(Rows.Count, "A").End(xlUp).Row
    For i = 1 To N
        If .Cells(i, "B").Value Like "Summary*" Then
            arr = .Range(.Cells(i, "A"), .Cells(i, "H")).Value
            .Cells(z, "B").Value = Join(arr, " ")
            z = z + 1
        End If
    Next i
End With

End Sub