Want to win a PS4? Go Premium and enter to win our High-Tech Treats giveaway. Enter to Win

x
?
Solved

Excel VBA Merge Cells

Posted on 2013-01-05
4
Medium Priority
?
1,933 Views
Last Modified: 2013-01-05
Hi

What Excel VBA would I use to do each of the ollowing Excel merges

Merge & Center
Merge Across
Merge Cells
0
Comment
Question by:Murray Brown
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 2
  • 2
4 Comments
 
LVL 50
ID: 38747489
Hello,

to find out about commands like these, fire up the macro recorder and use the commands one after the other. Then stop the macro recorder and see the code:

Option Explicit

Sub Macro1()
'
' Macro1 Macro
'

'
    Range("A1:C1").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge
    Range("A2:C2").Select
    Selection.Merge True
    Range("A3:C3").Select
    Selection.Merge
    Range("A1:C3").Select
    Selection.UnMerge
End Sub

Open in new window


The macro recorder always uses the Select statement, which you can trim from your final code, like

Sub Macro1()

'Merge and Center
    With Range("A1:C1")
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Range("A1:C1").Merge
    
' Merge across
    Range("A2:C2").Merge True

' Merge
    Range("A3:C3").Merge

' Unmerge
    Range("A1:C3").UnMerge
End Sub

Open in new window


cheers, teylyn
0
 

Author Comment

by:Murray Brown
ID: 38747502
Hi. Thanks

I had done that and post the question because step 1 and 3 seem to be exactly the same,
0
 
LVL 50

Accepted Solution

by:
Ingeborg Hawighorst (Microsoft MVP / EE MVE) earned 2000 total points
ID: 38747508
No, they're not the same. The actual merge command is the same, but for the Merge and Center there are a few commands that format the cells and precede the merge command. Hence the merged cell content is centered. For the Merge command alone, the contents will be formatted in the same way as the source cell.

If A1 is right-aligned and you use the Merge only option to merge A1 to C1, then the result will be a right-aligned merged cell. The merge command alone will honor existing cell formatting.

Whereas if A1 is right-aligned and you use the Merge and Center, the result will be a centered merged cell.

cheers, teylyn
0
 

Author Closing Comment

by:Murray Brown
ID: 38748120
I see. I had assumed that that first bit would have happened for all the merge types but woke up this morning realising that it might not, so thanks very much for the clarification...
0

Featured Post

Keep up with what's happening at Experts Exchange!

Sign up to receive Decoded, a new monthly digest with product updates, feature release info, continuing education opportunities, and more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

When you see single cell contains number and text, and you have to get any date out of it seems like cracking our heads.
This article describes a serious pitfall that can happen when deleting shapes using VBA.
The viewer will learn how to use the =DISCRINV command to create a discrete random variable, use this command to model a set of probabilities and outcomes in a Monte Carlo simulation, and learn how to find the standard deviation of a set of probabil…
This Micro Tutorial demonstrates in Microsoft Excel how to consolidate your marketing data by creating an interactive charts using form controls. This creates cool drop-downs for viewers of your chart to choose from.

618 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question