Merge the same group of cells down a column quickly

[Rich F]

I've got 900 rows of data in which each needs to have cells 1:3 merged and
centered (so, a1:a3, b1:b3, c1:c3, etc). Is there any fast way of doing this
besides selecting the same three cells in each row, hitting Merge & Center,
and then moving on to the next row? Trying to create a macro has been
fruitless and quite frustrating.

Im using 2007.

Thanks in advance!

 

[Bob I]

in the name box put a1:c900. then "Merge Across", then r-click selection
and format cells, alignment Horizontal Center.

 

[Otto Moehrbach]

What/Where is "Merge Across"? Otto

in the name box put a1:c900. then "Merge Across", then r-click selection
and format cells, alignment Horizontal Center.

 

[Otto Moehrbach]

Here is a macro that will do that. HTH Otto
Sub Macro1()
Dim rColA As Range
Dim i As Range
Set rColA = Range("A2", Range("A" & Rows.Count).End(xlUp))
For Each i In rColA
i.Resize(, 3).HorizontalAlignment = xlCenter
i.Resize(, 3).Merge
Next i
End Sub

 

[Rich F]

Bob,

What an elegant, simple solution. You are awesome, sir.

Thanks!

 

[Rich F]

Otto,

O.k, I now see what I was doing wrong. This works perfectly, too!

Thanks for teh speedy response.

 

[Bob I]

You're most welcome, have a great day!

 

[Bob I]

Home tab, Alignment panel, and just below "Merge and center" on the
pulldown. Rich is using 2007.

 

[Otto Moehrbach]

Thanks Bob. I hadn't seen that. Otto

Home tab, Alignment panel, and just below "Merge and center" on the
pulldown. Rich is using 2007.

 

[Bob I]

You're welcome too!

Thanks Bob. I hadn't seen that. Otto