Use formula or VBA to merge cells

[woah]

Hi there,

I got data like the picture. I want to merge cells of the raw data, but some contains dpulicate cells and blank cells. How can i use formula or VBA to have the desired outcome like the picture?

I got several sets of data. Some cells just contains values, but some cells contatin formula. Not sure whether it will affect the outcome.

Thank you all for your advice.

P.S. I have installed XL2BB, but nothing happened when I tried to paste it in the post. Not sure how to be able to use it.

 

[mohadin]

Hi
Try

Sub test()
Dim lr&, i&
lr = Cells(Rows.Count, 3).End(xlUp).Row
With Range("B3:B" & lr)
    .SpecialCells(4).FormulaR1C1 = "=R[-1]C"
    .Value = .Value
 Application.DisplayAlerts = False
    For i = lr To 3 Step -1
        If Cells(i, 2) = Cells(i + 1, 2) Then Range(Cells(i, 2), Cells(i + 1, 2)).Merge
    Next
 .HorizontalAlignment = xlCenter
 .VerticalAlignment = xlCenter
  End With
Application.DisplayAlerts = True
End Sub

 

[woah]

It works perfectly. Thank you

 

[mohadin]

You are very welcome
And thank you for the feedback
Be happy and safe