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!
--
Rich F

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

Rich F wrote:
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!

What/Where is "Merge Across"? Otto

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

Rich F wrote:
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!

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

Otto Moehrbach wrote:

What/Where is "Merge Across"? Otto

"Bob I" wrote in message
...

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

Rich F wrote:

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!

Thanks Bob. I hadn't seen that. Otto

"Bob I" wrote in message
...
Home tab, Alignment panel, and just below "Merge and center" on the
pulldown. Rich is using 2007.

Otto Moehrbach wrote:

What/Where is "Merge Across"? Otto

"Bob I" wrote in message
...

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

Rich F wrote:

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!

You're welcome too!

Otto Moehrbach wrote:

Thanks Bob. I hadn't seen that. Otto

"Bob I" wrote in message
...

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

Otto Moehrbach wrote:

What/Where is "Merge Across"? Otto

"Bob I" wrote in message
...

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

Rich F wrote:

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,

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

Thanks!
--
Rich F


"Bob I" wrote:

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

Rich F wrote:
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!

.

You're most welcome, have a great day!

Rich F wrote:

Bob,

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

Thanks!

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" wrote in message
...
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!
--
Rich F

Otto,

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

Thanks for teh speedy response.
--
Rich F


"Otto Moehrbach" wrote:

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" wrote in message
...
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!
--
Rich F

.