NamedRange.Merge(Object) Method

Reference

Definition

Namespace:: Microsoft.Office.Tools.Excel

Assembly:: Microsoft.Office.Tools.Excel.dll

Important

Some information relates to prerelease product that may be substantially modified before it’s released. Microsoft makes no warranties, express or implied, with respect to the information provided here.

Creates a merged cell from the NamedRange control.

public void Merge (object Across);

abstract member Merge : obj -> unit

Public Sub Merge (Optional Across As Object)

Parameters

Across: Object

true to merge cells in each row of the specified range as separate merged cells. The default value is false.

Examples

The following code example displays the value of the MergeArea and MergeCells properties of a single-cell NamedRange before and after using the Merge method to merge a multiple-cell NamedRange that contains the single-cell NamedRange.

This example is for a document-level customization.

private void MergeRange()
{
    Microsoft.Office.Tools.Excel.NamedRange namedRange1 =
        this.Controls.AddNamedRange(this.Range["A1", "A5"],
        "namedRange1");

    Microsoft.Office.Tools.Excel.NamedRange namedRange2 =
        this.Controls.AddNamedRange(this.Range["A1"],
        "namedRange2");

    string beforeMergeAddress = namedRange2.MergeArea.get_Address(
        Excel.XlReferenceStyle.xlA1);

    MessageBox.Show("Before merging, the MergeArea property is '" +
        beforeMergeAddress + "' and the MergeCells property is " +
        " '" + namedRange2.MergeCells.ToString() + "'.");

    namedRange1.Select();
    namedRange1.Merge(false);

    string afterMergeAddress = namedRange2.MergeArea.get_Address(
        Excel.XlReferenceStyle.xlA1);

    MessageBox.Show("After merging, the MergeArea property is '" +
        afterMergeAddress + "' and the MergeCells property is " +
        " '" + namedRange2.MergeCells.ToString() + "'.");
}

Private Sub MergeRange()
    Dim namedRange1 As Microsoft.Office.Tools.Excel.NamedRange _
        = Me.Controls.AddNamedRange(Me.Range("A1", "A5"), _
        "namedRange1")

    Dim namedRange2 As Microsoft.Office.Tools.Excel.NamedRange _
        = Me.Controls.AddNamedRange(Me.Range("A1"), "namedRange2")

    Dim beforeMergeAddress As String = _
        namedRange2.MergeArea.Address(, , _
        Excel.XlReferenceStyle.xlA1, , )

    MessageBox.Show("Before merging, the MergeArea property is '" & _
        beforeMergeAddress & "' and the MergeCells property is " & _
        " '" & namedRange2.MergeCells.ToString() & "'.")

    namedRange1.Select()
    namedRange1.Merge(False)

    Dim afterMergeAddress As String = _
        namedRange2.MergeArea.Address(, , _
        Excel.XlReferenceStyle.xlA1, , )

    MessageBox.Show("After merging, the MergeArea property is '" & _
        afterMergeAddress & "' and the MergeCells property is " & _
        " '" & namedRange2.MergeCells.ToString() & "'.")
End Sub

Remarks

The value of a merged range is specified in the cell in the upper-left corner of the NamedRange control.

Optional Parameters

For information on optional parameters, see Optional Parameters in Office Solutions.

Applies to

次の方法で共有