Export (0) Print
Expand All

Merge Method


This content is no longer actively maintained. It is provided as is, for anyone who may still be using these technologies, with no warranties or claims of accuracy with regard to the most recent product version or service release.

Creates a merged cell from the specified range. When you create a merged cell, the value in the upper-left cell in the specified range is used for the merged cell value. All other cell values in the merged cell are ignored.

expression.Merge(Across)

expression   An expression that returns a Range object. This method fails if the range only partially encloses a previously merged cell.

Across  Optional Variant. True to merge cells in each row in the specified range as separate merged cells. The default value is False.

Example

This example creates a merged cell from the range B2:C5 and puts a thick red border around the merged cell.


Sub Merge_Cells()
    Dim ssConstants
    Dim rngMerged
   
    Set ssConstants = Spreadsheet1.Constants
   
    ' Merge cells B2:C5.
    Spreadsheet1.ActiveSheet.Range("B2:C5").Merge
   
    ' Set a variable to the merged range.
    Set rngMerged = Spreadsheet1.ActiveSheet.Range("B2").MergeArea
   
    ' Format the merged cell.
    rngMerged.Borders.Color = "Red"
    rngMerged.Borders.Weight = ssConstants.owcLineWeightThick
    rngMerged.HorizontalAlignment = ssConstants.xlHAlignCenter
    rngMerged.VerticalAlignment = ssConstants.xlVAlignCenter
End Sub

 

Show:
© 2014 Microsoft