VBA code to merge every three rows starting from second row

[alirezae90]

Hi everyone,

I need a VBA code that would merge every three rows (if data exists) starting from row 2, and covering column range of A to lets say J.

Many thanks in advance,

 

[wellsr]

To clarify, are you wanting to merge every third row, like A2, B2, C2... or are you wanting to merge groups of 3 rows, like A2, A3, A4, then B2, B3, B4?

 

[pedexe90]

To clarify, are you wanting to merge every third row, like A2, B2, C2... or are you wanting to merge groups of 3 rows, like A2, A3, A4, then B2, B3, B4?

I want to merge A2, A3, A4, then B2, B3, B4.

 

[DanteAmor]

Try this

Sub Macro4()


    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    For i = 2 To Range("A" & Rows.Count).End(xlUp).Row Step 3
        For j = 1 To Columns("J").Column
            With Range(Cells(i, j), Cells(i + 2, j))
                .HorizontalAlignment = xlCenter
                .VerticalAlignment = xlCenter
                .MergeCells = True
            End With
        Next
    Next
End Sub

 

[Jessica Scott]

Thank you DanteArmor for the code. How would I modify this to include only columns C through F? I attempted the simpleton edit of replacing "A" with "C" and "J" with "F" in your code, but the merging still begins with column A (it did, however, stop at column F).

 

[Jessica Scott]

That should be DanteAmor. Apologies...

 

[DanteAmor]

So it already works for you?
Do you need anything else?

 

[pedexe90]

Hi DanteAmor,

Yes this worked perfectly and thank very much. I completely forgot to report back here.

Thanks

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.